[11/07/2012 18:06:14] [Error - TalkAction Interface]

[11/07/2012 18:06:14] In a timer event called from:

[11/07/2012 18:06:14] data/talkactions/scripts/move1.lua:onSay

[11/07/2012 18:06:14] Description:

[11/07/2012 18:06:14] (luaHasItemProperty) Item not found

 

 

[11/07/2012 17:57:26] [Error - Spell Interface]

[11/07/2012 17:57:26] data/spells/scripts/ps/Mud Shot.lua:onCastSpell

[11/07/2012 17:57:26] Description:

[11/07/2012 17:57:26] (luaDoTargetCombatHealth) Creature not found

 

 

[11/07/2012 18:04:19] [Error - Action Interface]

[11/07/2012 18:04:19] data/actions/scripts/evolution.lua:onUse

[11/07/2012 18:04:19] Description:

[11/07/2012 18:04:19] data/actions/scripts/evolution.lua:595: attempt to index field '?' (a nil value)

[11/07/2012 18:04:19] stack traceback:

[11/07/2012 18:04:19] data/actions/scripts/evolution.lua:595: in function <data/actions/scripts/evolution.lua:40>

 

 

[11/07/2012 20:00:20] [Error - MoveEvent::executeStep] Call stack overflow.

 

[10/07/2012 17:56:08] [Error - CreatureScript Interface]

[10/07/2012 17:56:08] data/creaturescripts/scripts/look.lua:onLook

[10/07/2012 17:56:08] Description:

[10/07/2012 17:56:08] data/creaturescripts/scripts/look.lua:46: bad argument #1 to 'floor' (number expected, got nil)

[10/07/2012 17:56:08] stack traceback:

[10/07/2012 17:56:08] [C]: in function 'floor'

[10/07/2012 17:56:08] data/creaturescripts/scripts/look.lua:46: in function <data/creaturescripts/scripts/look.lua:1>

 

[01/07/2012 16:01:52] [Error - CreatureScript Interface]

[01/07/2012 16:01:52] data/creaturescripts/scripts/look.lua:onLook

[01/07/2012 16:01:52] Description:

[01/07/2012 16:01:52] data/lib/050-function.lua:107: attempt to index local 'str' (a nil value)

[01/07/2012 16:01:52] stack traceback:

[01/07/2012 16:01:52] data/lib/050-function.lua:107: in function 'getArticle'

[01/07/2012 16:01:52] data/creaturescripts/scripts/look.lua:15: in function <data/creaturescripts/scripts/look.lua:1>

function doPlayerGiveItem(cid, itemid, amount, subType)

local item = 0

if(isItemStackable(itemid)) then

item = doCreateItemEx(itemid, amount)

if(doPlayerAddItemEx(cid, item, true) ~= RETURNVALUE_NOERROR) then

return false

end

else

for i = 1, amount do

item = doCreateItemEx(itemid, subType)

if(doPlayerAddItemEx(cid, item, true) ~= RETURNVALUE_NOERROR) then

return false

end

end

end

 

return true

end

 

function doPlayerGiveItemContainer(cid, containerid, itemid, amount, subType)

for i = 1, amount do

local container = doCreateItemEx(containerid, 1)

for x = 1, getContainerCapById(containerid) do

doAddContainerItem(container, itemid, subType)

end

 

if(doPlayerAddItemEx(cid, container, true) ~= RETURNVALUE_NOERROR) then

return false

end

end

 

return true

end

 

function doPlayerTakeItem(cid, itemid, amount)

return getPlayerItemCount(cid, itemid) >= amount and doPlayerRemoveItem(cid, itemid, amount)

end

 

function doPlayerBuyItem(cid, itemid, count, cost, charges)

return doPlayerRemoveMoney(cid, cost) and doPlayerGiveItem(cid, itemid, count, charges)

end

 

function doPlayerBuyItemContainer(cid, containerid, itemid, count, cost, charges)

return doPlayerRemoveMoney(cid, cost) and doPlayerGiveItemContainer(cid, containerid, itemid, count, charges)

end

 

function doPlayerSellItem(cid, itemid, count, cost)

if(not doPlayerTakeItem(cid, itemid, count)) then

return false

end

 

if(not doPlayerAddMoney(cid, cost)) then

error('[doPlayerSellItem] Could not add money to: ' .. getPlayerName(cid) .. ' (' .. cost .. 'gp).')

end

 

return true

end

 

function doPlayerWithdrawMoney(cid, amount)

if(not getBooleanFromString(getConfigInfo('bankSystem'))) then

return false

end

 

local balance = getPlayerBalance(cid)

if(amount > balance or not doPlayerAddMoney(cid, amount)) then

return false

end

 

doPlayerSetBalance(cid, balance - amount)

return true

end

 

function doPlayerDepositMoney(cid, amount)

if(not getBooleanFromString(getConfigInfo('bankSystem'))) then

return false

end

 

if(not doPlayerRemoveMoney(cid, amount)) then

return false

end

 

doPlayerSetBalance(cid, getPlayerBalance(cid) + amount)

return true

end

 

function isPremium(cid)

return (isPlayer(cid) and (getPlayerPremiumDays(cid) > 0 or getBooleanFromString(getConfigInfo('freePremium'))))

end

 

function getMonthDayEnding(day)

if(day == "01" or day == "21" or day == "31") then

return "st"

elseif(day == "02" or day == "22") then

return "nd"

elseif(day == "03" or day == "23") then

return "rd"

end

 

return "th"

end

 

function getMonthString(m)

return os.date("%B", os.time{year = 1970, month = m, day = 1})

end

 

function getArticle(str)

return str:find("[AaEeIiOoUuYy]") == 1 and "an" or "a"

end

 

function isNumber(str)

return tonumber(str) ~= nil

end

 

function doPlayerAddAddons(cid, addon)

for i = 0, table.maxn(maleOutfits) do

doPlayerAddOutfit(cid, maleOutfits, addon)

end

 

for i = 0, table.maxn(femaleOutfits) do

doPlayerAddOutfit(cid, femaleOutfits, addon)

end

end

 

function doPlayerWithdrawAllMoney(cid)

return doPlayerWithdrawMoney(cid, getPlayerBalance(cid))

end

 

function doPlayerDepositAllMoney(cid)

return doPlayerDepositMoney(cid, getPlayerMoney(cid))

end

 

function doPlayerTransferAllMoneyTo(cid, target)

return doPlayerTransferMoneyTo(cid, target, getPlayerBalance(cid))

end

 

function playerExists(name)

return getPlayerGUIDByName(name) ~= 0

end

 

function getTibiaTime()

local minutes = getWorldTime()

local hours = 0

while (minutes > 60) do

hours = hours + 1

minutes = minutes - 60

end

 

return {hours = hours, minutes = minutes}

end

 

function doWriteLogFile(file, text)

local f = io.open(file, "a+")

if(not f) then

return false

end

 

f:write("[" .. os.date("%d/%m/%Y %H:%M:%S") .. "] " .. text .. "\n")

f:close()

return true

end

 

function getExperienceForLevel(lv)

lv = lv - 1

return ((50 * lv * lv * lv) - (150 * lv * lv) + (400 * lv)) / 3

end

 

function doMutePlayer(cid, time)

local condition = createConditionObject(CONDITION_MUTED)

setConditionParam(condition, CONDITION_PARAM_TICKS, time * 1000)

return doAddCondition(cid, condition)

end

 

function getPlayerGroupName(cid)

return getGroupInfo(getPlayerGroupId(cid)).name

end

 

function getPlayerVocationName(cid)

return getVocationInfo(getPlayerVocation(cid)).name

end

 

function getPromotedVocation(vid)

return getVocationInfo(vid).promotedVocation

end

 

function doPlayerRemovePremiumDays(cid, days)

return doPlayerAddPremiumDays(cid, -days)

end

 

function getPlayerMasterPos(cid)

return getTownTemplePosition(getPlayerTown(cid))

end

 

function getHouseOwner(houseId)

return getHouseInfo(houseId).owner

end

 

function getHouseName(houseId)

return getHouseInfo(houseId).name

end

 

function getHouseEntry(houseId)

return getHouseInfo(houseId).entry

end

 

function getHouseRent(houseId)

return getHouseInfo(houseId).rent

end

 

function getHousePrice(houseId)

return getHouseInfo(houseId).price

end

 

function getHouseTown(houseId)

return getHouseInfo(houseId).town

end

 

function getHouseTilesCount(houseId)

return getHouseInfo(houseId).tiles

end

 

function getItemNameById(itemid)

return getItemDescriptionsById(itemid).name

end

 

function getItemPluralNameById(itemid)

return getItemDescriptionsById(itemid).plural

end

 

function getItemArticleById(itemid)

return getItemDescriptionsById(itemid).article

end

 

function getItemName(uid)

return getItemDescriptions(uid).name

end

 

function getItemPluralName(uid)

return getItemDescriptions(uid).plural

end

 

function getItemArticle(uid)

return getItemDescriptions(uid).article

end

 

function getItemText(uid)

return getItemDescriptions(uid).text

end

 

function getItemSpecialDescription(uid)

return getItemDescriptions(uid).special

end

 

function getItemWriter(uid)

return getItemDescriptions(uid).writer

end

 

function getItemDate(uid)

return getItemDescriptions(uid).date

end

 

function getTilePzInfo(pos)

return getTileInfo(pos).protection

end

 

function getTileZoneInfo(pos)

local tmp = getTileInfo(pos)

if(tmp.pvp) then

return 2

end

 

if(tmp.nopvp) then

return 1

end

 

return 0

end

 

function doShutdown()

return doSetGameState(GAMESTATE_SHUTDOWN)

end

 

function doSummonCreature(name, pos, displayError)

local displayError, cid = displayError or true, doCreateMonster(name, pos, displayError)

if(not cid) then

cid = doCreateNpc(name, pos, displayError)

end

 

return cid

end

 

function getOnlinePlayers()

local tmp = getPlayersOnline()

local players = {}

for i, cid in ipairs(tmp) do

table.insert(players, getCreatureName(cid))

end

 

return players

end

 

function getPlayerByName(name)

local cid = getCreatureByName(name)

return isPlayer(cid) and cid or nil

end

 

function isPlayer(cid)

return isCreature(cid) and cid >= AUTOID_PLAYERS and cid < AUTOID_MONSTERS

end

 

function isPlayerGhost(cid)

if(not isPlayer(cid)) then

return false

end

 

return getCreatureCondition(cid, CONDITION_GAMEMASTER, GAMEMASTER_INVISIBLE) or getPlayerFlagValue(cid, PLAYERFLAG_CANNOTBESEEN)

end

 

function isMonster(cid)

return isCreature(cid) and cid >= AUTOID_MONSTERS and cid < AUTOID_NPCS

end

 

function isNpc(cid)

return isCreature(cid) and cid >= AUTOID_NPCS

end

 

function doPlayerSetExperienceRate(cid, value)

return doPlayerSetRate(cid, SKILL__LEVEL, value)

end

 

function doPlayerSetMagicRate(cid, value)

return doPlayerSetRate(cid, SKILL__MAGLEVEL, value)

end

 

function doPlayerAddLevel(cid, amount, round)

local experience, level = 0, getPlayerLevel(cid)

if(amount > 0) then

experience = getExperienceForLevel(level + amount) - (round and getPlayerExperience(cid) or getExperienceForLevel(level))

else

experience = -((round and getPlayerExperience(cid) or getExperienceForLevel(level)) - getExperienceForLevel(level + amount))

end

 

return doPlayerAddExperience(cid, experience)

end

 

function doPlayerAddMagLevel(cid, amount)

for i = 1, amount do

doPlayerAddSpentMana(cid, (getPlayerRequiredMana(cid, getPlayerMagLevel(cid, true) + 1) - getPlayerSpentMana(cid)) / getConfigInfo('rateMagic'))

end

return true

end

 

function doPlayerAddSkill(cid, skill, amount, round)

if(skill == SKILL__LEVEL) then

return doPlayerAddLevel(cid, amount, round)

elseif(skill == SKILL__MAGLEVEL) then

return doPlayerAddMagLevel(cid, amount)

end

 

return doPlayerAddSkillTry(cid, skill, (getPlayerRequiredSkillTries(cid, skill, getPlayerSkillLevel(cid, skill) + 1) - getPlayerSkillTries(cid, skill)) / getConfigInfo('rateSkill'))

end

 

function getPartyLeader(cid)

local party = getPartyMembers(cid)

if(type(party) ~= 'table') then

return 0

end

 

return party[1]

end

 

function isInParty(cid)

return type(getPartyMembers(cid)) == 'table'

end

 

function isPrivateChannel(channelId)

return channelId >= CHANNEL_PRIVATE

end

 

function doPlayerResetIdleTime(cid)

return doPlayerSetIdleTime(cid, 0)

end

 

function doBroadcastMessage(text, class)

local class = class or MESSAGE_STATUS_WARNING

if(type(class) == 'string') then

local className = MESSAGE_TYPES[class]

if(className == nil) then

return false

end

 

class = className

elseif(class < MESSAGE_FIRST or class > MESSAGE_LAST) then

return false

end

 

local players = getPlayersOnline()

for _, pid in ipairs(players) do

doPlayerSendTextMessage(pid, class, text)

end

 

print("> Broadcasted message: \"" .. text .. "\".")

return true

end

 

function doPlayerBroadcastMessage(cid, text, class, checkFlag, ghost)

local checkFlag, ghost, class = checkFlag or true, ghost or false, class or TALKTYPE_BROADCAST

if(checkFlag and not getPlayerFlagValue(cid, PLAYERFLAG_CANBROADCAST)) then

return false

end

 

if(type(class) == 'string') then

local className = TALKTYPE_TYPES[class]

if(className == nil) then

return false

end

 

class = className

elseif(class < TALKTYPE_FIRST or class > TALKTYPE_LAST) then

return false

end

 

local players = getPlayersOnline()

for _, pid in ipairs(players) do

doCreatureSay(cid, text, class, ghost, pid)

end

 

print("> " .. getCreatureName(cid) .. " broadcasted message: \"" .. text .. "\".")

return true

end

 

function getBooleanFromString(input)

local tmp = type(input)

if(tmp == 'boolean') then

return input

end

 

if(tmp == 'number') then

return input > 0

end

 

local str = string.lower(tostring(input))

return (str == "yes" or str == "true" or (tonumber(str) ~= nil and tonumber(str) > 0))

end

 

function doCopyItem(item, attributes)

local attributes = attributes or false

 

local ret = doCreateItemEx(item.itemid, item.type)

if(attributes) then

if(item.actionid > 0) then

doItemSetAttribute(ret, "aid", item.actionid)

end

end

 

if(isContainer(item.uid)) then

for i = (getContainerSize(item.uid) - 1), 0, -1 do

local tmp = getContainerItem(item.uid, i)

if(tmp.itemid > 0) then

doAddContainerItemEx(ret, doCopyItem(tmp, true).uid)

end

end

end

 

return getThing(ret)

end

 

function doRemoveThing(uid)

if(isCreature(uid)) then

return doRemoveCreature(uid)

end

 

return doRemoveItem(uid)

end

 

function setAttackFormula(combat, type, minl, maxl, minm, maxm, min, max)

local min, max = min or 0, max or 0

return setCombatFormula(combat, type, -1, 0, -1, 0, minl, maxl, minm, maxm, min, max)

end

 

function setHealingFormula(combat, type, minl, maxl, minm, maxm, min, max)

local min, max = min or 0, max or 0

return setCombatFormula(combat, type, 1, 0, 1, 0, minl, maxl, minm, maxm, min, max)

end

 

function doChangeTypeItem(uid, subtype)

local thing = getThing(uid)

if(thing.itemid < 100) then

return false

end

 

local subtype = subtype or 1

return doTransformItem(thing.uid, thing.itemid, subtype)

end

 

function doSetItemText(uid, text, writer, date)

local thing = getThing(uid)

if(thing.itemid < 100) then

return false

end

 

doItemSetAttribute(uid, "text", text)

if(writer ~= nil) then

doItemSetAttribute(uid, "writer", tostring(writer))

if(date ~= nil) then

doItemSetAttribute(uid, "date", tonumber(date))

end

end

 

return true

end

 

function getFluidSourceType(itemid)

local item = getItemInfo(itemid)

return item and item.fluidSource or false

end

 

function getDepotId(uid)

return getItemAttribute(uid, "depotid") or false

end

 

function getItemDescriptions(uid)

local thing = getThing(uid)

if(thing.itemid < 100) then

return false

end

 

local item = getItemInfo(thing.itemid)

return {

name = getItemAttribute(uid, "name") or item.name,

plural = getItemAttribute(uid, "pluralname") or item.plural,

article = getItemAttribute(uid, "article") or item.article,

special = getItemAttribute(uid, "description") or "",

text = getItemAttribute(uid, "text") or "",

writer = getItemAttribute(uid, "writer") or "",

date = getItemAttribute(uid, "date") or 0

}

end

 

function getItemWeightById(itemid, count, precision)

local item, count, precision = getItemInfo(itemid), count or 1, precision or false

if(not item) then

return false

end

 

if(count > 100) then

-- print a warning, as its impossible to have more than 100 stackable items without "cheating" the count

print('[Warning] getItemWeightById', 'Calculating weight for more than 100 items!')

end

 

local weight = item.weight * count

--[[if(precision) then

return weight

end

 

local t = string.explode(tostring(weight), ".")

if(table.maxn(t) == 2) then

return tonumber(t[1] .. "." .. string.sub(t[2], 1, 2))

end]]--

 

return weight

end

 

function getItemWeaponType(uid)

local thing = getThing(uid)

if(thing.itemid < 100) then

return false

end

 

return getItemInfo(thing.itemid).weaponType

end

 

function getItemRWInfo(uid)

local thing = getThing(uid)

if(thing.itemid < 100) then

return false

end

 

local item, flags = getItemInfo(thing.itemid), 0

if(item.readable) then

flags = 1

end

 

if(item.writable) then

flags = flags + 2

end

 

return flags

end

 

function getItemLevelDoor(itemid)

local item = getItemInfo(itemid)

return item and item.levelDoor or false

end

 

function isItemStackable(itemid)

local item = getItemInfo(itemid)

return item and item.stackable or false

end

 

function isItemRune(itemid)

local item = getItemInfo(itemid)

return item and item.clientCharges or false

end

 

function isItemDoor(itemid)

local item = getItemInfo(itemid)

return item and item.type == 5 or false

end

 

function isItemContainer(itemid)

local item = getItemInfo(itemid)

return item and item.group == 2 or false

end

 

function isItemFluidContainer(itemid)

local item = getItemInfo(itemid)

return item and item.group == 12 or false

end

 

function isItemMovable(itemid)

local item = getItemInfo(itemid)

return item and item.movable or false

end

 

function isCorpse(uid)

local thing = getThing(uid)

if(thing.itemid < 100) then

return false

end

 

local item = getItemInfo(thing.itemid)

return item and item.corpseType ~= 0 or false

end

 

function getContainerCapById(itemid)

local item = getItemInfo(itemid)

if(not item or item.group ~= 2) then

return false

end

 

return item.maxItems

end

 

function getMonsterAttackSpells(name)

local monster = getMonsterInfo(name)

return monster and monster.attacks or false

end

 

function getMonsterHealingSpells(name)

local monster = getMonsterInfo(name)

return monster and monster.defenses or false

end

 

function getMonsterLootList(name)

local monster = getMonsterInfo(name)

return monster and monster.loot or false

end

 

function getMonsterSummonList(name)

local monster = getMonsterInfo(name)

return monster and monster.summons or false

end

 

 

function onLook(cid, thing, position, lookDistance)

 

local str = ""

 

if not isCreature(thing.uid) then

 

local iname = getItemInfo(thing.itemid)

 

if isPokeball(thing.itemid) then

 

local owner = getItemAttribute(thing.uid, "firstpoke")

 

local pokename = getItemAttribute(thing.uid, "poke")

local item = getItemInfo(thing.itemid)

str = "You see "..item.article.." "..item.name..".\n"

str = str.."It contains "..getArticle(pokename).." "..pokename.." [level "..getItemAttribute(thing.uid, "level").."].\n"

 

if owner and owner ~= getCreatureName(cid) then

str = str.."It belongs to "..owner..".\nIt is an unique item."

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

return false

end

 

local boost = getItemAttribute(thing.uid, "boost") or 0

local boostshow = ""

 

if boost > 0 then

str = str.."Boost level: +"..boost..".\n"

end

 

if getItemAttribute(thing.uid, "nick") then

str = str.."It's nickname is: "..getItemAttribute(thing.uid, "nick")..".\n"

end

 

if getItemAttribute(thing.uid, "gender") == SEX_MALE then

str = str.."It is male."

elseif getItemAttribute(thing.uid, "gender") == SEX_FEMALE then

str = str.."It is female."

else

str = str.."It is genderless."

end

 

str = str.."\n--- Status ---"

str = str.."\nOffense: "..math.floor(getItemAttribute(thing.uid, "offense")).." Defense: "..math.floor(getItemAttribute(thing.uid, "defense")).."\n"

str = str.."Agility: "..math.floor(getItemAttribute(thing.uid, "speed")).." Sp. Attack: "..math.floor(getItemAttribute(thing.uid, "specialattack")).."\n"

str = str.."Vitality: "..math.floor(getItemAttribute(thing.uid, "vitality"))..""

 

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

 

return false

 

elseif string.find(iname.name, "fainted") or string.find(iname.name, "defeated") then

 

str = "You see a "..string.lower(iname.name).." ["..getItemAttribute(thing.uid, "level").."].\n"

 

if getItemAttribute(thing.uid, "gender") == SEX_MALE then

str = str.."It is male."

elseif getItemAttribute(thing.uid, "gender") == SEX_FEMALE then

str = str.."It is female."

else

str = str.."It is genderless."

end

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

 

return false

 

else

 

return true

 

end

end

 

local npcname = getCreatureName(thing.uid)

local l = string.len(npcname)

if not isPlayer(thing.uid) and not isMonster(thing.uid) then

--string.sub(npcname, l - 1, l) == " " then

local article = getPlayerStorageValue(thing.uid, 9891) == 1 and "He is" or "She is"

local nname = string.sub(npcname, 1, l - 2)

if nname == getCreatureName(cid) then

nname = "yourself"

article = "You are"

end

str = "You see "..nname..". "..article.." a pokemon trainer."

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

return false

end

 

if not isMonster(thing.uid) then

return true

end

 

if getCreatureName(thing.uid) == "Evolution" then return false end

 

if not isSummon(thing.uid) then

local str = "You see a wild "..string.lower(getCreatureName(thing.uid)).." [level "..getPokemonLevel(thing.uid).."].\n"

if getPokemonGender(thing.uid) == SEX_MALE then

str = str.."It is male."

elseif getPokemonGender(thing.uid) == SEX_FEMALE then

str = str.."It is female."

else

str = str.."It is genderless."

end

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

return false

elseif isSummon(thing.uid) and not isPlayer(thing.uid) then

 

local boostlevel = getItemAttribute(getPlayerSlotItem(getCreatureMaster(thing.uid), 8).uid, "boost") or 0

local boostshow = " + "..boostlevel.."]"

 

if showBoostSeparated then

boostshow = "] [+"..boostlevel.."]"

end

 

local levelinfo = "["..getPokemonLevel(thing.uid)..""..boostshow..""

 

if getCreatureMaster(thing.uid) == cid then

local myball = getPlayerSlotItem(cid, 8).uid

local nexp = getItemAttribute(myball, "nextlevelexp")

 

local string = "You see your "..string.lower(getCreatureName(thing.uid)).." "..levelinfo.."."

string = string.."\nHit points: "..getCreatureHealth(thing.uid).."/"..getCreatureMaxHealth(thing.uid).."."

string = string.."\n"..getPokemonHappinessDescription(thing.uid)

if getItemAttribute(myball, "level") <= 99 then

string = string.."\nExperience needed to level up: "..nexp.."."

end

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, string)

else

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You see a "..string.lower(getCreatureName(thing.uid)).." "..levelinfo..".\nIt belongs to "..getCreatureName(getCreatureMaster(thing.uid))..".")

end

 

 

return false

end

 

return true

end

 

function onLook(cid, thing, position, lookDistance)

 

local str = ""

 

if not isCreature(thing.uid) then

 

local iname = getItemInfo(thing.itemid)

 

if isPokeball(thing.itemid) then

 

local owner = getItemAttribute(thing.uid, "firstpoke")

 

local pokename = getItemAttribute(thing.uid, "poke")

local item = getItemInfo(thing.itemid)

if getItemAttribute(thing.uid, "offense") == nil or getItemAttribute(thing.uid, "offense") < 0 then

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You see a bugged ball.\nReport this for Administration of the Game.")

print(""..getCreatureName(cid).." have a bugged ball.")

return false

end

str = "You see "..item.article.." "..item.name..".\n"

str = str.."It contains "..getArticle(pokename).." "..pokename.." [level "..getItemAttribute(thing.uid, "level").."].\n"

 

if owner and owner ~= getCreatureName(cid) then

str = str.."It belongs to "..owner..".\nIt is an unique item."

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

return false

end

 

local boost = getItemAttribute(thing.uid, "boost") or 0

local boostshow = ""

 

if boost > 0 then

str = str.."Boost level: +"..boost..".\n"

end

 

if getItemAttribute(thing.uid, "nick") then

str = str.."It's nickname is: "..getItemAttribute(thing.uid, "nick")..".\n"

end

 

if getItemAttribute(thing.uid, "gender") == SEX_MALE then

str = str.."It is male."

elseif getItemAttribute(thing.uid, "gender") == SEX_FEMALE then

str = str.."It is female."

else

str = str.."It is genderless."

end

 

str = str.."\n--- Status ---"

str = str.."\nOffense: "..math.floor(getItemAttribute(thing.uid, "offense")).." Defense: "..math.floor(getItemAttribute(thing.uid, "defense")).."\n"

str = str.."Agility: "..math.floor(getItemAttribute(thing.uid, "speed")).." Sp. Attack: "..math.floor(getItemAttribute(thing.uid, "specialattack")).."\n"

str = str.."Vitality: "..math.floor(getItemAttribute(thing.uid, "vitality"))..""

 

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

 

return false

 

elseif string.find(iname.name, "fainted") or string.find(iname.name, "defeated") then

 

str = "You see a "..string.lower(iname.name).." ["..getItemAttribute(thing.uid, "level").."].\n"

 

if getItemAttribute(thing.uid, "gender") == SEX_MALE then

str = str.."It is male."

elseif getItemAttribute(thing.uid, "gender") == SEX_FEMALE then

str = str.."It is female."

else

str = str.."It is genderless."

end

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

 

return false

 

else

 

return true

 

end

end

 

local npcname = getCreatureName(thing.uid)

local l = string.len(npcname)

if not isPlayer(thing.uid) and not isMonster(thing.uid) then

--string.sub(npcname, l - 1, l) == " " then

local article = getPlayerStorageValue(thing.uid, 9891) == 1 and "He is" or "She is"

local nname = string.sub(npcname, 1, l - 2)

if nname == getCreatureName(cid) then

nname = "yourself"

article = "You are"

end

str = "You see "..nname..". "..article.." a pokemon trainer."

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

return false

end

 

if not isMonster(thing.uid) then

return true

end

 

if getCreatureName(thing.uid) == "Evolution" then return false end

 

if not isSummon(thing.uid) then

local str = "You see a wild "..string.lower(getCreatureName(thing.uid)).." [level "..getPokemonLevel(thing.uid).."].\n"

if getPokemonGender(thing.uid) == SEX_MALE then

str = str.."It is male."

elseif getPokemonGender(thing.uid) == SEX_FEMALE then

str = str.."It is female."

else

str = str.."It is genderless."

end

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)

return false

elseif isSummon(thing.uid) and not isPlayer(thing.uid) then

 

local boostlevel = getItemAttribute(getPlayerSlotItem(getCreatureMaster(thing.uid), 8).uid, "boost") or 0

local boostshow = " + "..boostlevel.."]"

 

if showBoostSeparated then

boostshow = "] [+"..boostlevel.."]"

end

 

local levelinfo = "["..getPokemonLevel(thing.uid)..""..boostshow..""

 

if getCreatureMaster(thing.uid) == cid then

local myball = getPlayerSlotItem(cid, 8).uid

local nexp = getItemAttribute(myball, "nextlevelexp")

 

local string = "You see your "..string.lower(getCreatureName(thing.uid)).." "..levelinfo.."."

string = string.."\nHit points: "..getCreatureHealth(thing.uid).."/"..getCreatureMaxHealth(thing.uid).."."

string = string.."\n"..getPokemonHappinessDescription(thing.uid)

if getItemAttribute(myball, "level") <= 99 then

string = string.."\nExperience needed to level up: "..nexp.."."

end

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, string)

else

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You see a "..string.lower(getCreatureName(thing.uid)).." "..levelinfo..".\nIt belongs to "..getCreatureName(getCreatureMaster(thing.uid))..".")

end

 

 

return false

end

 

return true

end

 

function onCastSpell(cid, var)

 

if isSummon(cid) then return true end

 

docastspell(cid, "Mud Shot")

 

return true

end

 

 

 

local special = specialevo

local types = {

[leaf] = {"Bulbasaur", "Ivysaur", "Oddish", "Gloom", "Bellsprout", "Weepinbell", "Exeggcute", "Chikorita", "Bayleef", "Hoppip", "Skiploom", "Sunkern"},

[water] = {"Squirtle", "Wartortle", "Horsea", "Goldeen", "Magikarp", "Psyduck", "Poliwag", "Poliwhirl", "Tentacool", "Krabby", "Staryu", "Omanyte", "Eevee", "Totodile", "Croconow", "Chinchou", "Marill", "Wooper", "Slowpoke", "Remoraid", "Seadra"},

[venom] = {"Zubat", "Ekans", "Nidoran male", "Nidoran female", "Nidorino", "Nidorina", "Gloom", "Venonat", "Tentacool", "Grimer", "Koffing", "Spinarak", "Golbat"},

[thunder] = {"Magnemite", "Pikachu", "Voltorb", "Eevee", "Chinchou", "Pichu", "Mareep", "Flaaffy", "Elekid"},

[rock] = {"Geodude", "Graveler", "Rhyhorn", "Kabuto", "Slugma", "Pupitar"},

[punch] = {"Machop", "Machoke", "Mankey", "Poliwhirl", "Tyrogue"},

[fire] = {"Charmander", "Charmeleon", "Vulpix", "Growlithe", "Ponyta", "Eevee", "Cyndaquil", "Quilava", "Slugma", "Houndour", "Magby"},

[coccon] = {"Caterpie", "Metapod", "Weedle", "Kakuna", "Paras", "Venonat", "Scyther", "Ledyba", "Spinarak", "Pineco"},

[crystal] = {"Dratini", "Dragonair", "Magikarp", "Omanyte", "Kabuto", "Seadra"},

[dark] = {"Gastly", "Haunter", "Eevee", "Houndour", "Pupitar"},

[earth] = {"Cubone", "Sandshrew", "Nidorino", "Nidorina", "Diglett", "Onix", "Rhyhorn", "Wooper", "Swinub", "Phanpy", "Larvitar"},

[enigma] = {"Abra", "Kadabra", "Psyduck", "Slowpoke", "Drowzee", "Eevee", "Natu", "Smoochum"},

[heart] = {"Rattata", "Pidgey", "Pidgeotto", "Spearow", "Clefairy", "Jigglypuff", "Meowth", "Doduo", "Porygon", "Chansey", "Sentret", "Hoothoot", "Cleffa", "Igglybuff", "Togepi", "Snubull", "Teddiursa"},

[ice] = {"Seel", "Shellder", "Smoochum", "Swinub"},

[king] = {"Slowpoke", "Poliwhirl"},

[metal] = {"Onix", "Scyther"},

[dragon] = {"Seadra"},

[upgrade] = {"Porygon"},

[sun] = {"Sunkern", "Gloom"},

--[sfire] = {"Shiny Charmander", "Shiny Charmeleon", "Shiny Vulpix", "Shiny Growlithe", "Shiny Ponyta", "Shiny Eevee"},

[swater] = {"Shiny Squirtle", "Shiny Wartortle", "Shiny Horsea", "Shiny Goldeen", "Shiny Magikarp", "Shiny Psyduck", "Shiny Poliwag", "Shiny Poliwhirl", "Shiny Tentacool", "Shiny Krabby", "Shiny Staryu", "Shiny Omanyte", "Shiny Eevee"},

[sleaf] = {"Shiny Bulbasaur", "Shiny Ivysaur", "Shiny Oddish", "Shiny Gloom", "Shiny Bellsprout", "Shiny Weepinbell", "Shiny Exeggcute"},

[sheart] = {"Shiny Rattata", "Shiny Pidgey", "Shiny Pidgeotto", "Shiny Spearow", "Shiny Clefairy", "Shiny Jigglypuff", "Shiny Meowth", "Shiny Doduo", "Shiny Porygon", "Shiny Chansey"},

[senigma] = {"Shiny Abra", "Shiny Kadabra", "Shiny Psyduck", "Shiny Slowpoke", "Shiny Drowzee", "Shiny Eevee"},

[srock] = {"Shiny Geodude", "Shiny Graveler", "Shiny Rhyhorn", "Shiny Kabuto"},

[svenom] = {"Shiny Zubat", "Shiny Ekans", "Shiny Nidoran male", "Shiny Nidoran female", "Shiny Nidorino", "Shiny Nidorina", "Shiny Gloom", "Shiny Venonat", "Shiny Tentacool", "Shiny Grimer", "Shiny Koffing"},

[sice] = {"Shiny Seel", "Shiny Shellder"},

[sthunder] = {"Shiny Magnemite", "Shiny Pikachu", "Shiny Voltorb", "Shiny Eevee"},

[scrystal] = {"Shiny Dratini", "Shiny Dragonair", "Shiny Magikarp", "Shiny Omanyte", "Shiny Kabuto"},

[scoccon] = {"Shiny Caterpie", "Shiny Metapod", "Shiny Weedle", "Shiny Kakuna", "Shiny Paras", "Shiny Venonat", "Shiny Scyther"},

[sdarkness] = {"Shiny Gastly", "Shiny Haunter", "Shiny Eevee"},

[spunch] = {"Shiny Machop", "Shiny Machoke", "Shiny Mankey", "Shiny Poliwhirl"},

[searth] = {"Shiny Cubone", "Shiny Sandshrew", "Shiny Nidorino", "Shiny Nidorina", "Shiny Diglett", "Shiny Onix", "Shiny Rhyhorn"}

}

function onUse(cid, item, frompos, item2, topos)

local pokeball = getPlayerSlotItem(cid, 8)

if not isMonster(item2.uid) or not isSummon(item2.uid) then

return true

end

if getCreatureCondition(item2.uid, CONDITION_INVISIBLE) then return true end

local pevo = poevo[getCreatureName(item2.uid)]

if not isInArray(specialevo, getCreatureName(item2.uid)) then

if not pevo then

doPlayerSendCancel(cid, "This pokemon can't evolve.")

return true

end

if pevo.level ~= 1 and not allEvolutionsCanBeInduzedByStone then

doPlayerSendCancel(cid, "This pokemon doesn't evolve using stones.")

return true

end

if not isPlayer(getCreatureMaster(item2.uid)) or getCreatureMaster(item2.uid) ~= cid then

doPlayerSendCancel(cid, "You can only use stones on pokemons you own.")

return true

end

if pevo.stoneid ~= item.itemid and pevo.stoneid2 ~= item.itemid then

doPlayerSendCancel(cid, "This isn't the needed stone to evolve this pokemon.")

return true

end

end

local minlevel = 0

 

if getPokemonName(item2.uid) == "Eevee" then

local eevee = ""

if item.itemid == thunder then

eevee = "Jolteon"

elseif item.itemid == water then

eevee = "Vaporeon"

elseif item.itemid == fire then

eevee = "Flareon"

elseif item.itemid == enigma and allEvolutionsCanBeInduzedByStone then

eevee = "Espeon"

elseif item.itemid == dark and allEvolutionsCanBeInduzedByStone then

eevee = "Umbreon"

else

doPlayerSendCancel(cid, "This isn't the required stone to evolve this pokemon.")

return true

end

minlevel = pokes[eevee].level

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

if getPokemonLevel(item2.uid) < 20 then

return doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (20).")

end

doRemoveItem(item.uid, 1)

doEvolvePokemon(cid, item2, eevee, 0, 0)

return true

end

if getPokemonName(item2.uid) == "Shiny Eevee" then

local eevee = ""

if item.itemid == sthunder then

eevee = "Shiny Jolteon"

elseif item.itemid == swater then

eevee = "Shiny Vaporeon"

elseif item.itemid == sfire then

eevee = "Shiny Flareon"

else

doPlayerSendCancel(cid, "This isn't the required stone to evolve this pokemon.")

return true

end

minlevel = pokes[eevee].level

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

if getPokemonLevel(item2.uid) < 20 then

return doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (20).")

end

doRemoveItem(item.uid, 1)

doEvolvePokemon(cid, item2, eevee, 0, 0)

return true

end

 

if isInArray(specialevo, getPokemonName(item2.uid)) then

if getPokemonName(item2.uid) == "Poliwhirl" then

local evolution = 0

local theevo = ""

local nlevel = 45

if item.itemid == water then

if getPokemonLevel(item2.uid) >= 36 and getPlayerItemCount(cid, king) >= 1 then

evolution = king

theevo = "Politoed"

elseif getPokemonLevel(item2.uid) >= 36 and getPlayerItemCount(cid, punch) >= 1 and allEvolutionsCanBeInduzedByStone then

evolution = punch

theevo = "Poliwrath"

else

if getPokemonLevel(item2.uid) < 36 then

doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (36).")

return true

end

if allEvolutionsCanBeInduzedByStone then

if getPlayerItemCount(cid, king) <= 0 and getPlayerItemCount(cid, punch) <= 0 then

doPlayerSendCancel(cid, "You need a water stone and a punch stone (Poliwrath) or a King's Rock (Politoed) to evolve this pokemon.")

return true

end

else

if getPlayerItemCount(cid, king) <= 0 then

doPlayerSendCancel(cid, "You need a Water Stone and a King's Rock to evolve this pokemon to a Politoed.")

return true

end

end

end

minlevel = pokes[theevo].level

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

if theevo == "Poliwrath" and getPokemonLevel(item2.uid) < 36 then

doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (36).")

return true

end

if getPlayerItemCount(cid, punch) >= 1 and getPlayerItemCount(cid, king) >= 1 and allEvolutionsCanBeInduzedByStone then

doPlayerSendCancel(cid, "Please, use your Punch Stone to evolve this pokemon to a Poliwrath, or a King's Rock to a Politoed.")

return true

end

if evolution == 0 then

if allEvolutionsCanBeInduzedByStone then

doPlayerSendCancel(cid, "You need at least one Water Stone, and a Punch Stone (Poliwrath) or a King's Rock (Politoed) to evolve this pokemon.")

else

doPlayerSendCancel(cid, "You need at least one Water Stone and a King's Rock to evolve this pokemon.")

end

return true

end

if evolution ~= 0 then

doEvolvePokemon(cid, item2, theevo, evolution, water)

return true

end

elseif item.itemid == punch then

minlevel = pokes["Poliwrath"].level

if not allEvolutionsCanBeInduzedByStone then

doPlayerSendCancel(cid, "This is not the required stone to evolve this pokemon.")

return true

end

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

if getPokemonLevel(item2.uid) < 36 then

doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (45).")

return true

end

if getPlayerItemCount(cid, water) <= 0 then

doPlayerSendCancel(cid, "You need at least one Punch Stone and one Water Stone to evolve this pokemon.")

return true

end

local theevo = "Poliwrath"

doEvolvePokemon(cid, item2, theevo, water, punch)

 

elseif item.itemid == king then

minlevel = pokes["Politoed"].level

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

if getPlayerItemCount(cid, water) <= 0 then

doPlayerSendCancel(cid, "You need at least one Punch Stone and one King's Rock to evolve this pokemon.")

return true

end

local theevo = "Politoed"

doEvolvePokemon(cid, item2, theevo, water, king)

end

elseif getPokemonName(item2.uid) == "Shiny Poliwhirl" then

local evolution = 0

local theevo = ""

local nlevel = 45

if item.itemid == swater then

if getPokemonLevel(item2.uid) >= 36 and getPlayerItemCount(cid, punch) >= 1 and allEvolutionsCanBeInduzedByStone then

evolution = spunch

theevo = "Shiny Poliwrath"

else

if getPokemonLevel(item2.uid) < 36 then

doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (36).")

return true

end

if allEvolutionsCanBeInduzedByStone then

if getPlayerItemCount(cid, punch) <= 0 then

doPlayerSendCancel(cid, "You need a shining water stone and a shining punch stone Shiny Poliwrath to evolve this pokemon.")

return true

end

else

 

end

end

minlevel = pokes[theevo].level

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

if theevo == "Shiny Poliwrath" and getPokemonLevel(item2.uid) < 36 then

doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (36).")

return true

end

if getPlayerItemCount(cid, spunch) >= 1 and allEvolutionsCanBeInduzedByStone then

doPlayerSendCancel(cid, "Please, use your shining Punch Stone to evolve this pokemon to a Poliwrath.")

return true

end

if evolution == 0 then

if allEvolutionsCanBeInduzedByStone then

doPlayerSendCancel(cid, "You need at least one shining Water Stone and a shining Punch Stone ,Shiny Poliwrath to evolve this pokemon.")

else

doPlayerSendCancel(cid, "You need at least one shining Water Stone evolve this pokemon.")

end

return true

end

if evolution ~= 0 then

doEvolvePokemon(cid, item2, theevo, evolution, swater)

return true

end

elseif item.itemid == spunch then

minlevel = pokes["Shiny Poliwrath"].level

if not allEvolutionsCanBeInduzedByStone then

doPlayerSendCancel(cid, "This is not the required shining stone to evolve this pokemon.")

return true

end

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

if getPokemonLevel(item2.uid) < 36 then

doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (45).")

return true

end

if getPlayerItemCount(cid, swater) <= 0 then

doPlayerSendCancel(cid, "You need at least one shining Punch Stone and one shining Water Stone to evolve this pokemon.")

return true

end

local theevo = "Shiny Poliwrath"

doEvolvePokemon(cid, item2, theevo, swater, spunch)

 

end

elseif getPokemonName(item2.uid) == "Gloom" then

if getPokemonLevel(item2.uid) < 31 then

doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (31).")

return true

end

if item.itemid == leaf then

local theevo = ""

local evolution = 0

if getPlayerItemCount(cid, venom) >= 1 and getPlayerItemCount(cid, sun) >= 1 then

doPlayerSendCancel(cid, "Please, use your Venom Stone to evolve this pokemon to a Vileplume, or a Sun Stone to a Bellossom.")

return true

end

if getPlayerItemCount(cid, venom) <= 0 and getPlayerItemCount(cid, sun) <= 0 then

doPlayerSendCancel(cid, "You need at least one Leaf Stone, and a Sun Stone (Bellossom) or a Venom Stone (Vileplume) to evolve this pokemon.")

return true

end

if getPlayerItemCount(cid, venom) >= 1 then

theevo = "Vileplume"

evolution = venom

elseif getPlayerItemCount(cid, sun) >= 1 then

theevo = "Bellossom"

evolution = sun

end

minlevel = pokes[theevo].level

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

doEvolvePokemon(cid, item2, theevo, evolution, leaf)

elseif item.itemid == venom then

minlevel = pokes["Vileplume"].level

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

if getPlayerItemCount(cid, leaf) <= 0 then

doPlayerSendCancel(cid, "You need at least one Leaf Stone and one Venom Stone to evolve this pokemon.")

return true

end

doEvolvePokemon(cid, item2, "Vileplume", venom, leaf)

elseif item.itemid == sun then

minlevel = pokes["Bellossom"].level

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

if getPlayerItemCount(cid, leaf) <= 0 then

doPlayerSendCancel(cid, "You need at least one Leaf Stone and one Sun Stone to evolve this pokemon.")

return true

end

doEvolvePokemon(cid, item2, "Bellossom", sun, leaf)

end

elseif getPokemonName(item2.uid) == "Shiny Gloom" then

if getPokemonLevel(item2.uid) < 31 then

doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (31).")

return true

end

if item.itemid == sleaf then

local theevo = ""

local evolution = 0

if getPlayerItemCount(cid, svenom) >= 1 then

doPlayerSendCancel(cid, "Please, use your shining Venom Stone to evolve this pokemon to a Shiny Vileplume.")

return true

end

if getPlayerItemCount(cid, svenom) <= 0 then

doPlayerSendCancel(cid, "You need at least one shining Leaf Stone or a shining Venom Stone (Shiny Vileplume) to evolve this pokemon.")

return true

end

if getPlayerItemCount(cid, svenom) >= 1 then

theevo = "Shiny Vileplume"

evolution = svenom

end

minlevel = pokes[theevo].level

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

doEvolvePokemon(cid, item2, theevo, evolution, sleaf)

elseif item.itemid == svenom then

minlevel = pokes["Shiny Vileplume"].level

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

if getPlayerItemCount(cid, sleaf) <= 0 then

doPlayerSendCancel(cid, "You need at least one Leaf Stone and one shining Venom Stone to evolve this pokemon.")

return true

end

doEvolvePokemon(cid, item2, "Shiny Vileplume", svenom, sleaf)

end

elseif getPokemonName(item2.uid) == "Slowpoke" then

if getPokemonLevel(item2.uid) < 28 then

doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (28).")

return true

end

if item.itemid == enigma then

if not allEvolutionsCanBeInduzedByStone then

doPlayerSendCancel(cid, "This is not the required stone to evolve this pokemon.")

return true

end

minlevel = pokes["Slowbro"].level

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

doEvolvePokemon(cid, item2, "Slowbro", enigma, 0)

elseif item.itemid == king then

minlevel = pokes["Slowking"].level

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

doEvolvePokemon(cid, item2, "Slowking", king, 0)

end

 

elseif getPokemonName(item2.uid) == "Shiny Slowpoke" then

if getPokemonLevel(item2.uid) < 28 then

doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (28).")

return true

end

if item.itemid == senigma then

if not allEvolutionsCanBeInduzedByStone then

doPlayerSendCancel(cid, "This is not the required stone to evolve this pokemon.")

return true

end

minlevel = pokes["Shiny Slowbro"].level

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

doEvolvePokemon(cid, item2, "Shiny Slowbro", senigma, 0)

end

 

elseif getPokemonName(item2.uid) == "Tyrogue" then

if getPokemonLevel(item2.uid) < 20 then

doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve (20).")

return true

end

if not allEvolutionsCanBeInduzedByStone then

doPlayerSendCancel(cid, "This pokemon doesn't evolve using stones.")

return true

end

local evolution = ""

if getOffense(item2.uid) == getDefense(item2.uid) then

evolution = "Hitmontop"

elseif getOffense(item2.uid) > getDefense(item2.uid) then

evolution = "Hitmonlee"

else

evolution = "Hitmonchan"

end

minlevel = pokes[evolution].level

if getPlayerLevel(cid) < minlevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

doEvolvePokemon(cid, item2, evolution, punch, 0)

end

return true

end

local count = poevo[getPokemonName(item2.uid)].count

local stnid = poevo[getPokemonName(item2.uid)].stoneid

local stnid2 = poevo[getPokemonName(item2.uid)].stoneid2

local evo = poevo[getPokemonName(item2.uid)].evolution

local nlevel = poevo[getPokemonName(item2.uid)].level

local count = poevo[getPokemonName(item2.uid)].count

local stnid = poevo[getPokemonName(item2.uid)].stoneid

local stnid2 = poevo[getPokemonName(item2.uid)].stoneid2

local evo = poevo[getPokemonName(item2.uid)].evolution

local nlevel = poevo[getPokemonName(item2.uid)].level

 

if stnid2 > 1 and (getPlayerItemCount(cid, stnid2) < count or getPlayerItemCount(cid, stnid) < count) then

doPlayerSendCancel(cid, "You need at least one "..getItemNameById(stnid).." and one "..getItemNameById(stnid2).." to evolve this pokemon!")

return true

end

if getPlayerItemCount(cid, stnid) < count then

local str = ""

if count >= 2 then

str = "s"

end

return doPlayerSendCancel(cid, "You need at least "..count.." "..getItemNameById(stnid)..""..str.." to evolve this pokemon!")

end

minlevel = pokes[evo].level

if getPlayerLevel(cid) < minlevel and evolutionByStoneRequireLevel then

doPlayerSendCancel(cid, "You don't have enough level to evolve this pokemon ("..minlevel..").")

return true

end

if getPokemonLevel(item2.uid) < nlevel and evolutionByStoneRequireLevel then

doPlayerSendCancel(cid, "Sorry, your pokemon doesn't have the required level to evolve ("..nlevel..").")

return true

end

if count >= 2 then

stnid2 = stnid

end

doEvolvePokemon(cid, item2, evo, stnid, stnid2)

return TRUE

end

 

 

--[[

*** functions ***

 

•doMoveInAreaWithMiss(cid, area, effect, cd, atkName, paralize, element, min, max)

•Da uma atk com efeito que deixa os alvos com efeito de 'MISS'...

 

•doMoveInArea(cid, rounds, effect, area, min, max, element, atkName)

•Da um atk 'nomal' e tb atks que deixam os alvos com efeito de 'Confuso'...

 

•doMoveInAreaMulti(cid, effDistance, effMagic, areaEff, areaDano, element, min, max)

•Da um atk estilo 'Multi-Kick, Bullet Seed' e afins...

--]]

 

const_distance_delay = 56

 

local hitmonchans = {

["Hitmonchan"] = {

[0] = {out = 559, eff = 112}, --outfit normal

[1] = {out = 1075, eff = 35}, --outfit fogo

[2] = {out = 1077, eff = 48}, --outfit raio

[3] = {out = 1078, eff = 43}, --outfit gelo

[4] = {out = 1076, eff = 140} --outfit ghost

},

 

["Shiny Hitmonchan"] = {

--aconcelho trocar a outfit do shiny hitmonchan pela do elite hitmonchan do PO...

[0] = {out = 837, eff = 112}, --outfit normal

[1] = {out = 1080, eff = 35}, --outfit fogo

[2] = {out = 1081, eff = 48}, --outfit raio

[3] = {out = 1082, eff = 43}, --outfit gelo

[4] = {out = 1079, eff = 140} --outfit ghost

}

}

 

function getMasterTarget(cid)

if isSummon(cid) then

return getCreatureTarget(getCreatureMaster(cid))

else

return getCreatureTarget(cid)

end

end

 

function doAreaCombatWithDelay(cid, target, pos, area, type, effect, a, b)

if not isCreature(cid) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

local topos = {}

if isCreature(target) then topos = getThingPosWithDebug(target) else topos = pos end

doAreaCombatHealth(cid, type, topos, area, -math.abs(a), -math.abs(b), effect)

end

 

function doAreaCombatHealthAtDistance(cid, type, pos, area, min, max, effect)

local delay = 0

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

if isCreature(cid) and isCreature(target) then

delay = getDistanceBetween(getThingPosWithDebug(cid), getThingPosWithDebug(target)) * const_distance_delay

addEvent(doAreaCombatWithDelay, delay, cid, target, getThingPosWithDebug(target), area, type, effect, -min, -max)

return true

end

doAreaCombatHealth(cid, type, pos, area, min, max, effect)

end

 

function docastspell(cid, spell, mina, maxa)

 

local getThingPositionWithDebug = getThingPosWithDebug

local target = 0

local getDistDelay = 0

 

if isCreature(getMasterTarget(cid)) then

target = getMasterTarget(cid)

getDistDelay = getDistanceBetween(getThingPositionWithDebug(cid), getThingPositionWithDebug(target)) * const_distance_delay

end

 

if not isCreature(cid) or getCreatureHealth(cid) <= 0 then return false end

if isSleeping(cid) then return true end

if getPlayerStorageValue(cid, 6) >= 1 then doSendAnimatedText(getThingPositionWithDebug(cid), "DISABLED", 152) return true end

if isMonster(cid) and not isSummon(cid) then

if getCreatureCondition(cid, CONDITION_EXHAUST) then

return true

end

doCreatureAddCondition(cid, wildexhaust)

end

 

local mydir = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)

 

local movetype = getSpecialAttack(cid)

 

local min = 0

local max = 0

local healMultiplier = 1

 

if mina and maxa then

min = math.abs(mina)

max = math.abs(maxa)

elseif not isPlayer(cid) then

if movesinfo[spell] then

if movesinfo[spell].t == "fighting" then

movetype = getOffense(cid) * 0.95 + getSpecialAttack(cid) * 0.45 ---original, 1.4 / 0.45

elseif movesinfo[spell].t == "normal" then

movetype = movetype * 0.6 + getOffense(cid) * 0.6

end

min = 5 + getPokemonLevel(cid) + (movesinfo[spell].f / 100 * movetype * specialoffenseRate)

max = min + getPokemonLevel(cid) * levelFactor

if not isSummon(cid) then

doCreatureSay(cid, string.upper(spell).."!", TALKTYPE_MONSTER)

end

if isNpcSummon(cid) then

local mnn = {" use ", " "}

local use = mnn[math.random(#mnn)]

doCreatureSay(getCreatureMaster(cid), getPlayerStorageValue(cid, 1007)..","..use..""..doCorrectString(spell).."!", 1)

end

else

print("Error trying to use move "..spell..", move not specified in moves table.")

end

 

end

--- BURN SKIN -----------------------------

if getPlayerStorageValue(cid, 974848) >= 1 then

min = min*2

max = max*2

end

--- FOCUS ----------------------------------

if getPlayerStorageValue(cid, 253) >= 0 and movesinfo[spell] and movesinfo[spell].f ~= 0 then

min = min * 2

max = max * 2

setPlayerStorageValue(cid, 253, -1)

end

--- Shredder Team -------------------------------

if getPlayerStorageValue(cid, 637500) >= 1 then

min = 0

max = 0

end

------------------Miss System--------------------------

local cd = getPlayerStorageValue(cid, 32659)

local cd2 = getPlayerStorageValue(cid, 3891)

if cd > 0 or cd2 > 0 then

if math.random(1, 100) > 30 then

doSendAnimatedText(getThingPos(cid), "MISS", 215)

return false

end

end

---------------GHOST DAMAGE-----------------------

ghostDmg = GHOSTDAMAGE

 

if getPlayerStorageValue(cid, 999457) >= 1 then

ghostDmg = NORMALDAMAGE

addEvent(setPlayerStorageValue, 50, cid, 999457, -1)

end

---------------SelfDestruction-----------------

canDoSelf = true

----------------REFLECT-------------------------

local uid = checkAreaUid(getCreaturePosition(cid), BigArea2, 1, 1)

for _,pid in pairs(uid) do

if isCreature(pid) then

if getPlayerStorageValue(cid, 21099) >= 1 then

if getPlayerStorageValue(pid, 21101) >= 1 then

target = pid

setPlayerStorageValue(cid, 21099, 0)

setPlayerStorageValue(pid, 21101, 0)

end

elseif getPlayerStorageValue(pid, 21099) >= 1 and pid ~= cid then

if not isInArray({"Reflect", "Team Slice", "Magic Coat", "Shredder Team"}, spell) then

addEvent(docastspell, 100, pid, spell)

doSendMagicEffect(getThingPos(pid), 135)

doSendAnimatedText(getThingPos(pid), "REFLECT", COLOR_GRASS)

setPlayerStorageValue(cid, 21101, 1)

canDoSelf = false

min = 0

max = 0

end

end

end

end

--------------------------------------------------

element = movesinfo[spell].t

if isSummon(cid) then

if getPlayerVocation(getCreatureMaster(cid)) == 7 and element == "water" then

min = min + (min * 0.30)

max = max + (max * 0.30)

elseif getPlayerVocation(getCreatureMaster(cid)) == 4 and element == "electric" then

min = min + (min * 0.30)

max = max + (max * 0.30)

elseif getPlayerVocation(getCreatureMaster(cid)) == 5 and element == "fire" then

min = min + (min * 0.30)

max = max + (max * 0.30)

elseif getPlayerVocation(getCreatureMaster(cid)) == 6 and element == "flying" then

min = min + (min * 0.30)

max = max + (max * 0.30)

elseif getPlayerVocation(getCreatureMaster(cid)) == 6 and element == "dragon" then

min = min + (min * 0.30)

max = max + (max * 0.30)

elseif getPlayerVocation(getCreatureMaster(cid)) == 7 and element == "ice" then

min = min + (min * 0.30)

max = max + (max * 0.30)

elseif getPlayerVocation(getCreatureMaster(cid)) == 8 and element == "grass" then

min = min + (min * 0.30)

max = max + (max * 0.30)

elseif getPlayerVocation(getCreatureMaster(cid)) == 8 and element == "bug" then

min = min + (min * 0.30)

max = max + (max * 0.30)

elseif getPlayerVocation(getCreatureMaster(cid)) == 9 and element == "ghost" then

min = min + (min * 0.30)

max = max + (max * 0.30)

elseif getPlayerVocation(getCreatureMaster(cid)) == 9 and element == "poison" then

min = min + (min * 0.30)

max = max + (max * 0.30)

elseif getPlayerVocation(getCreatureMaster(cid)) == 10 and element == "rock" then

min = min + (min * 0.30)

max = max + (max * 0.30)

elseif getPlayerVocation(getCreatureMaster(cid)) == 10 and element == "earth" then

min = min + (min * 0.30)

max = max + (max * 0.30)

elseif getPlayerVocation(getCreatureMaster(cid)) == 11 and element == "fighting" then

min = min + (min * 0.30)

max = max + (max * 0.30)

elseif getPlayerVocation(getCreatureMaster(cid)) == 11 and element == "normal" then

min = min + (min * 0.30)

max = max + (max * 0.30)

elseif getPlayerVocation(getCreatureMaster(cid)) == 12 and element == "psychic" then

min = min + (min * 0.30)

max = max + (max * 0.30)

end

end

if spell == "Reflect" or spell == "Magic Coat" then

 

if spell == "Magic Coat" then

eff = 11

else

eff = 135

end

 

doSendMagicEffect(getThingPositionWithDebug(cid), eff)

setPlayerStorageValue(cid, 21099, 75)

 

local function doEndReflect(cid)

if not isCreature(cid) then return true end

if getPlayerStorageValue(cid, 21099) <= 0 then

--doSendAnimatedText(getThingPos(cid), "BREAK", COLOR_BURN)

doSendMagicEffect(getThingPositionWithDebug(cid), eff)

return true

end

setPlayerStorageValue(cid, 21099, getPlayerStorageValue(cid, 21099) - 1)

addEvent(doEndReflect, 200, cid)

end

 

addEvent(doEndReflect, 200, cid)

 

elseif spell == "Quick Attack" then

 

doSendMagicEffect(getThingPositionWithDebug(cid), 211)

local x = getClosestFreeTile(cid, getThingPositionWithDebug(target))

doTeleportThing(cid, x, false)

doFaceCreature(cid, getThingPositionWithDebug(target))

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

 

elseif spell == "Razor Leaf" then

 

local function throw(cid, target)

if not isCreature(cid) or not isCreature(target) then return false end

if isSleeping(cid) then return true end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 8)

doAreaCombatHealthAtDistance(cid, GRASSDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 245)

end

 

addEvent(throw, 0, cid, target)

addEvent(throw, 350, cid, target)

 

elseif spell == "Vine Whip" then

 

local area = getThingPositionWithDebug(cid)

local dano = {}

local effect = 255

 

if mydir == 0 then

area.x = area.x + 1

area.y = area.y - 1

dano = whipn

effect = 80

elseif mydir == 1 then

area.x = area.x + 2

area.y = area.y + 1

dano = whipe

effect = 83

elseif mydir == 2 then

area.x = area.x + 1

area.y = area.y + 2

dano = whips

effect = 81

elseif mydir == 3 then

area.x = area.x - 1

area.y = area.y + 1

dano = whipw

effect = 82

end

 

doSendMagicEffect(area, effect)

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(cid), dano, -min, -max, 245)

 

elseif spell == "Headbutt" then

 

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 118)

 

elseif spell == "Leech Seed" then

 

local leecher = cid

local leeched = target

local dmg = 1.5 * getPokemonLevel(cid)

 

local function drain(cid, target)

if isCreature(cid) and isCreature(target) then

local life = getCreatureHealth(target)

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(target), 0, -dmg, -dmg, 45)

local newlife = life - getCreatureHealth(target)

if newlife >= 1 then

doSendMagicEffect(getThingPositionWithDebug(cid), 14)

doCreatureAddHealth(cid, newlife)

doSendAnimatedText(getThingPositionWithDebug(cid), "+"..newlife.."", 32)

end

end

end

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 1)

for rounds = 1, 5 do

addEvent(drain, 2000 * rounds, leecher, leeched)

end

 

elseif spell == "Solar Beam" then

 

local function useSolarBeam(cid)

if not isCreature(cid) then

return true

end

if isSleeping(cid) then

return true

end

local effect1 = 255

local effect2 = 255

local effect3 = 255

local effect4 = 255

local effect5 = 255

local area = {}

local pos1 = getThingPositionWithDebug(cid)

local pos2 = getThingPositionWithDebug(cid)

local pos3 = getThingPositionWithDebug(cid)

local pos4 = getThingPositionWithDebug(cid)

local pos5 = getThingPositionWithDebug(cid)

if getCreatureLookDir(cid) == 1 then

effect1 = 4

effect2 = 10

effect3 = 10

effect4 = 10

effect5 = 26

pos1.x = pos1.x + 2

pos1.y = pos1.y + 1

pos2.x = pos2.x + 3

pos2.y = pos2.y + 1

pos3.x = pos3.x + 4

pos3.y = pos3.y + 1

pos4.x = pos4.x + 5

pos4.y = pos4.y + 1

pos5.x = pos5.x + 6

pos5.y = pos5.y + 1

area = solare

elseif getCreatureLookDir(cid) == 0 then

effect1 = 36

effect2 = 37

effect3 = 37

effect4 = 38

pos1.x = pos1.x + 1

pos1.y = pos1.y - 1

pos2.x = pos2.x + 1

pos2.y = pos2.y - 3

pos3.x = pos3.x + 1

pos3.y = pos3.y - 4

pos4.x = pos4.x + 1

pos4.y = pos4.y - 5

area = solarn

elseif getCreatureLookDir(cid) == 2 then

effect1 = 46

effect2 = 50

effect3 = 50

effect4 = 59

pos1.x = pos1.x + 1

pos1.y = pos1.y + 2

pos2.x = pos2.x + 1

pos2.y = pos2.y + 3

pos3.x = pos3.x + 1

pos3.y = pos3.y + 4

pos4.x = pos4.x + 1

pos4.y = pos4.y + 5

area = solars

elseif getCreatureLookDir(cid) == 3 then

effect1 = 115

effect2 = 162

effect3 = 162

effect4 = 162

effect5 = 163

pos1.x = pos1.x - 1

pos1.y = pos1.y + 1

pos2.x = pos2.x - 3

pos2.y = pos2.y + 1

pos3.x = pos3.x - 4

pos3.y = pos3.y + 1

pos4.x = pos4.x - 5

pos4.y = pos4.y + 1

pos5.x = pos5.x - 6

pos5.y = pos5.y + 1

area = solarw

end

 

if effect1 ~= 255 then

doSendMagicEffect(pos1, effect1)

end

if effect2 ~= 255 then

doSendMagicEffect(pos2, effect2)

end

if effect3 ~= 255 then

doSendMagicEffect(pos3, effect3)

end

if effect4 ~= 255 then

doSendMagicEffect(pos4, effect4)

end

if effect5 ~= 255 then

doSendMagicEffect(pos5, effect5)

end

 

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(cid), area, -min, -max, 255)

doRegainSpeed(cid)

end

 

local function ChargingBeam(cid)

if not isCreature(cid) then

return true

end

if isSleeping(cid) then

return true

end

local tab = {}

 

for x = -2, 2 do

for y = -2, 2 do

local pos = getThingPositionWithDebug(cid)

pos.x = pos.x + x

pos.y = pos.y + y

if pos.x ~= getThingPositionWithDebug(cid).x and pos.y ~= getThingPositionWithDebug(cid).y then

table.insert(tab, pos)

end

end

end

doSendDistanceShoot(tab[math.random(#tab)], getThingPositionWithDebug(cid), 37)

end

 

doChangeSpeed(cid, -getCreatureSpeed(cid))

 

for r = 1, 270 do

addEvent(ChargingBeam, r*9, cid)

end

 

addEvent(useSolarBeam, 2800, cid)

 

elseif spell == "Sleep Powder" then

 

local calc = math.floor(getPokemonLevel(cid) / 20)

local v1 = 6

local v2 = v1 + calc

doAreaCombatHealth(cid, SLEEP_POWDERDAMAGE, getThingPositionWithDebug(cid), powders, -v1, -v2, 27)

 

elseif spell == "Stun Spore" then

 

doMoveInAreaWithMiss(cid, confusion, 85, 9, spell, 1, GRASSDAMAGE, 0, 0)

 

elseif spell == "Poison Powder" then

 

local v1 = (10 + getPokemonLevel(cid)) * 2

setPlayerStorageValue(cid, 919231, v1)

local v3 = getPokemonLevel(cid) / 10 + 5

 

doAreaCombatHealth(cid, POISON_POWDERDAMAGE, getThingPositionWithDebug(cid), powders, -v3, -v3, 84)

 

elseif spell == "Bullet Seed" then

--cid, effDist, effDano, areaEff, areaDano, element, min, max

doMoveInAreaMulti(cid, 1, 45, bullet, bulletDano, GRASSDAMAGE, min, max)

 

elseif spell == "Body Slam" then

 

doBodyPush(cid, target, true)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

 

elseif spell == "Leaf Storm" or tonumber(spell) == 73 then

 

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(cid), grassarea, -min, -max, 255)

 

local pos = getThingPositionWithDebug(cid)

 

local function doSendLeafStorm(cid, pos)

if not isCreature(cid) then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), pos, 8)

end

 

for a = 1, 250 do

local lugar = {x = pos.x + math.random(-9, 9), y = pos.y + math.random(-8, 8), z = pos.z}

addEvent(doSendLeafStorm, a * 2, cid, lugar)

end

 

 

elseif spell == "Leaf Dream" or tonumber(spell) == 73 then

 

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(cid), grassarea, -min, -max, 239)

 

local pos = getThingPositionWithDebug(cid)

 

local function doSendLeafStorm(cid, pos)

if not isCreature(cid) then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), pos, 8)

end

 

for a = 1, 239 do

local lugar = {x = pos.x + math.random(-9, 9), y = pos.y + math.random(-8, 8), z = pos.z}

addEvent(doSendLeafStorm, a * 2, cid, lugar)

end

 

 

elseif spell == "Scratch" then

 

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 142)

 

elseif spell == "Ember" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 3)

doAreaCombatHealthAtDistance(cid, FIREDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 15)

 

elseif spell == "Flamethrower" then

 

local flamepos = getThingPos(cid)

local effect = 255

local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)

 

if a == 0 then

flamepos.x = flamepos.x+1

flamepos.y = flamepos.y-1

effect = 106

elseif a == 1 then

flamepos.x = flamepos.x+3

flamepos.y = flamepos.y+1

effect = 109

elseif a == 2 then

flamepos.x = flamepos.x+1

flamepos.y = flamepos.y+3

effect = 107

elseif a == 3 then

flamepos.x = flamepos.x-1

flamepos.y = flamepos.y+1

effect = 108

end

 

doMoveInArea(cid, 0, 2, flamek, min, max, FIREDAMAGE)

doSendMagicEffect(flamepos, effect)

 

 

elseif spell == "Fireball" then

 

doSendDistanceShoot(getThingPos(cid), getThingPositionWithDebug(target), 3)

 

local function damage(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(target), waba, -min, -max, 5)

end

 

addEvent(damage, 100, cid, target)

 

elseif spell == "Fire Fang" then

 

doSendMagicEffect(getThingPositionWithDebug(target), 138)

 

local function doBite(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 15)

end

 

addEvent(doBite, 200, cid, target)

 

elseif spell == "Fire Blast" then

 

local posicao = getThingPositionWithDebug(cid)

 

local function fireBlast(cid, area1, area2, effect, area3)

if not isCreature(cid) then return true end

if not isSightClear(posicao, area1, false) then return true end

if isSleeping(cid) then return true end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doAreaCombatHealth(cid, null, area1, 0, -min, -max, effect)

if area2.x ~= getThingPositionWithDebug(cid).x or area2.y ~= getThingPositionWithDebug(cid).y then

doAreaCombatHealth(cid, null, area2, area3, -min, -max, 35)

end

doAreaCombatHealth(cid, FIREDAMAGE, area1, area3, -min, -max, 35)

end

 

local m = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)

 

if m == 0 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x, y = posicao.y - (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y - a, z = posicao.z}, 60, whirl3)

end

elseif m == 2 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x, y = posicao.y + (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y + a, z = posicao.z}, 62, whirl3)

end

elseif m == 1 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x + a + 1, y = posicao.y, z = posicao.z}, {x = posicao.x + a, y = posicao.y, z = posicao.z}, 61, whirl3)

end

elseif m == 3 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x - (a + 1), y = posicao.y, z = posicao.z}, {x = posicao.x - a, y = posicao.y, z = posicao.z}, 63, whirl3)

end

end

 

elseif spell == "Rage" then

 

doBuffSyst(cid, 15, 13, getPlayerStorageValue(cid, 36847), spell, true)

 

elseif spell == "Raging Blast" then

 

--cid, effDist, effDano, areaEff, areaDano, element, min, max

doMoveInAreaMulti(cid, 3, 6, bullet, bulletDano, FIREDAMAGE, min, max)

 

 

elseif spell == "Monster Blast" then

 

--cid, effDist, effDano, areaEff, areaDano, element, min, max

doMoveInAreaMulti(cid, 237, 237, bullet, bulletDano, FIREDAMAGE, min, max)

 

 

elseif spell == "Dragon Claw" then

 

doAreaCombatHealth(cid, DRAGONDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 141)

 

elseif spell == "Wing Attack" then

 

local effectpos = getThingPositionWithDebug(cid)

local effect = 255

local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)

 

if a == 0 then

effect = 128

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y - 1

elseif a == 1 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 129

elseif a == 2 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 131

elseif a == 3 then

effectpos.x = effectpos.x - 1

effectpos.y = effectpos.y + 1

effect = 130

end

 

doSendMagicEffect(effectpos, effect)

doMoveInArea(cid, 0, 2, wingatk, min, max, FLYINGDAMAGE)

 

elseif spell == "Magma Storm" then

 

local eff = {35, 35, 6}

local area = {flames2, flames3, flames4}

 

doMoveInArea(cid, 0, 6, flames1, min, max, FIREDAMAGE)

addEvent(doMoveInArea, 2*450, cid, 0, 2, flames0, min, max, FIREDAMAGE)

for i = 1, 3 do

addEvent(doMoveInArea, i*450, cid, 0, eff, area, min, max, FIREDAMAGE)

end

 

 

elseif spell == "Big Explosion" then

 

local eff = {241, 241, 241}

local area = {flames2, flames3, flames4}

 

doMoveInArea(cid, 0, 6, flames1, min, max, FIREDAMAGE)

addEvent(doMoveInArea, 2*450, cid, 0, 2, flames0, min, max, FIREDAMAGE)

for i = 1, 3 do

addEvent(doMoveInArea, i*450, cid, 0, eff, area, min, max, FIREDAMAGE)

end

 

elseif spell == "Bubbles" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 2)

doAreaCombatHealthAtDistance(cid, WATERDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 25)

 

elseif spell == "Clamp" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 2)

doAreaCombatHealthAtDistance(cid, WATERDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 53)

 

elseif spell == "Water Gun" then

 

if mydir == 0 then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg1n, -min, -max, 74)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg2n, -min, -max, 75)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg3n, -min, -max, 76)

elseif mydir == 2 then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg1s, -min, -max, 77)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg2s, -min, -max, 75)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg3s, -min, -max, 78)

elseif mydir == 1 then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg1e, -min, -max, 69)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg2e, -min, -max, 70)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg3e, -min, -max, 71)

elseif mydir == 3 then

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg1w, -min, -max, 72)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg2w, -min, -max, 70)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), wg3w, -min, -max, 73)

end

 

elseif spell == "Waterball" then

 

doSendDistanceShoot(getThingPos(cid), getThingPositionWithDebug(target), 2)

 

local function damage(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(target), waba, -min, -max, 68)

end

 

addEvent(damage, 100, cid, target)

 

elseif spell == "Aqua Tail" then

 

local function rebackSpd(cid, sss)

if not isCreature(cid) then return true end

doChangeSpeed(cid, sss)

setPlayerStorageValue(cid, 446, -1)

end

 

local x = getCreatureSpeed(cid)

doFaceOpposite(cid)

doChangeSpeed(cid, -x)

addEvent(rebackSpd, 400, cid, x)

setPlayerStorageValue(cid, 446, 1)

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 68)

 

elseif spell == "Hydro Cannon" then

 

local posicao = getThingPositionWithDebug(cid)

 

local function HydroCannon(cid, area1, area2, effect, area3)

if not isCreature(cid) then return true end

if not isSightClear(posicao, area1, false) then return true end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

if isSleeping(cid) then return true end

doAreaCombatHealth(cid, null, area1, 0, -min, -max, effect)

if area2.x ~= getThingPositionWithDebug(cid).x or area2.y ~= getThingPositionWithDebug(cid).y then

doAreaCombatHealth(cid, null, area2, area3, -min, -max, 68)

end

doAreaCombatHealth(cid, WATERDAMAGE, area1, area3, -min, -max, 68)

end

 

local m = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)

 

if m == 0 then

for a = 0, 5 do

addEvent(HydroCannon, 300 * a, cid, {x = posicao.x, y = posicao.y - (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y - a, z = posicao.z}, 64, whirl3)

end

elseif m == 2 then

for a = 0, 5 do

addEvent(HydroCannon, 300 * a, cid, {x = posicao.x, y = posicao.y + (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y + a, z = posicao.z}, 66, whirl3)

end

elseif m == 1 then

for a = 0, 5 do

addEvent(HydroCannon, 300 * a, cid, {x = posicao.x + a + 1, y = posicao.y, z = posicao.z}, {x = posicao.x + a, y = posicao.y, z = posicao.z}, 65, whirl3)

end

elseif m == 3 then

for a = 0, 5 do

addEvent(HydroCannon, 300 * a, cid, {x = posicao.x - (a + 1), y = posicao.y, z = posicao.z}, {x = posicao.x - a, y = posicao.y, z = posicao.z}, 67, whirl3)

end

end

 

elseif spell == "Harden" or spell == "Calm Mind" then

 

if spell == "Harden" then

eff = 144

else

eff = 133

end

doBuffSyst(cid, 15, eff, getPlayerStorageValue(cid, 36847), spell, true)

 

 

elseif spell == "Bubble Blast" then

 

--cid, effDist, effDano, areaEff, areaDano, element, min, max

doMoveInAreaMulti(cid, 2, 68, bullet, bulletDano, WATERDAMAGE, min, max)

 

elseif spell == "Skull Bash" then

 

doMoveInArea(cid, 0, 118, reto5, min, max, NORMALDAMAGE, spell)

 

elseif spell == "Hydropump" then

 

local pos = getThingPositionWithDebug(cid)

 

local function doSendBubble(cid, pos)

if not isCreature(cid) then return true end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

if isSleeping(cid) then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), pos, 2)

doSendMagicEffect(pos, 53)

end

 

for b = 1, 3 do

for a = 1, 20 do

local lugar = {x = pos.x + math.random(-4, 4), y = pos.y + math.random(-3, 3), z = pos.z}

addEvent(doSendBubble, a * 75, cid, lugar)

end

end

doAreaCombatHealth(cid, WATERDAMAGE, pos, waterarea, -min, -max, 255)

 

 

elseif spell == "Tsunami" then

 

local pos = getThingPositionWithDebug(cid)

 

local function doSendBubble(cid, pos)

if not isCreature(cid) then return true end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

if isSleeping(cid) then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), pos, 2)

doSendMagicEffect(pos, 246)

end

 

for b = 1, 3 do

for a = 1, 20 do

local lugar = {x = pos.x + math.random(-4, 4), y = pos.y + math.random(-3, 3), z = pos.z}

addEvent(doSendBubble, a * 75, cid, lugar)

end

end

doAreaCombatHealth(cid, WATERDAMAGE, pos, waterarea, -min, -max, 255)

 

 

elseif spell == "String Shot" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 23)

if canAttackOther(cid, target) == "Can" then

addEvent(doMissSyst, 100, target, 6, 137, getPlayerStorageValue(target, 32659), 1)

end

 

elseif spell == "Bug Bite" then

 

doSendMagicEffect(getThingPositionWithDebug(target), 244)

 

local function doBite(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, BUGDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 8)

end

 

addEvent(doBite, 200, cid, target)

 

elseif spell == "Super Sonic" then

 

local rounds = math.random(4, 7)

rounds = rounds + math.floor(getPokemonLevel(cid) / 35)

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 32)

doAdvancedConfuse(target, rounds, getPlayerStorageValue(target, 3891), cid)

 

elseif spell == "Whirlwind" then

 

addEvent(doMoveInArea, 0, cid, 0, 42, SL1, min, max, FLYINGDAMAGE, spell)

addEvent(doMoveInArea, 300, cid, 0, 42, SL2, min, max, FLYINGDAMAGE, spell)

addEvent(doMoveInArea, 600, cid, 0, 42, SL3, min, max, FLYINGDAMAGE, spell)

addEvent(doMoveInArea, 900, cid, 0, 42, SL4, min, max, FLYINGDAMAGE, spell)

 

elseif spell == "Psybeam" then

 

local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)

local t = {

[0] = 57,

[1] = 234,

[2] = 58,

[3] = 209,

}

 

doMoveInArea(cid, 0, t[a], reto4, min, max, PSYCHICDAMAGE, spell)

 

elseif spell == "Sand Attack" then

 

local function doMoveInDirection(cid, mydir)

if mydir == 0 then --norte

return 120

elseif mydir == 2 then --sul

return 122

elseif mydir == 1 then --leste

return 121

elseif mydir == 3 then --oeste

return 119

end

end

 

--(cid, area, eff, cd, nameAtk, cond, element, min, max)

doMoveInAreaWithMiss(cid, reto5, doMoveInDirection(cid, mydir), 9, spell, 1, null, 0, 0)

 

 

elseif spell == "Confusion" or spell == "Night Shade" then

 

local rounds = math.random(4, 7) --rever area...

rounds = rounds + math.floor(getPokemonLevel(cid) / 35)

 

if spell == "Confusion" then

dano = PSYCHICDAMAGE

else

dano = ghostDmg

end

 

doMoveInArea(cid, rounds, 136, selfArea1, min, max, dano)

 

elseif spell == "Horn Attack" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 15)

addEvent(doAreaCombatWithDelay, getDistDelay, cid, target, getThingPositionWithDebug(target), 0, NORMALDAMAGE, 3, -min, -max)

 

elseif spell == "Poison Sting" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 15)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 8)

 

elseif spell == "Fury Cutter" then

 

local effectpos = getThingPositionWithDebug(cid)

local effect = 255

local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)

 

if a == 0 then

effect = 128

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y - 1

elseif a == 1 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 129

elseif a == 2 then

effectpos.x = effectpos.x + 1

effectpos.y = effectpos.y + 1

effect = 131

elseif a == 3 then

effectpos.x = effectpos.x - 1

effectpos.y = effectpos.y + 1

effect = 130

end

local function doFury(cid, effect)

if not isCreature(cid) then return true end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

if isSleeping(cid) then return true end

doSendMagicEffect(effectpos, effect)

doMoveInArea(cid, 0, 2, wingatk, min, max, BUGDAMAGE)

end

 

addEvent(doFury, 0, cid, effect)

addEvent(doFury, 350, cid, effect)

 

elseif spell == "Pin Missile" then

 

doMoveInAreaMulti(cid, 13, 7, bullet, bulletDano, BUGDAMAGE, min, max)

 

elseif spell == "Strafe" or spell == "Agility" then

 

doBuffSyst(cid, 15, 14, getPlayerStorageValue(cid, 36847), spell, true)

 

elseif spell == "Gust" then

 

doMoveInArea(cid, 0, 42, reto5, min, max, FLYINGDAMAGE, spell)

 

elseif spell == "Drill Peck" then

 

doAreaCombatHealth(cid, FLYINGDAMAGE, getThingPos(target), 0, -min, -max, 148)

 

elseif spell == "Tornado" then

 

local pos = getThingPositionWithDebug(cid)

 

local function doSendTornado(cid, pos)

if not isCreature(cid) then return true end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

if isSleeping(cid) then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), pos, 22)

doSendMagicEffect(pos, 42)

end

 

for b = 1, 3 do

for a = 1, 20 do

local lugar = {x = pos.x + math.random(-4, 4), y = pos.y + math.random(-3, 3), z = pos.z}

addEvent(doSendTornado, a * 75, cid, lugar)

end

end

doAreaCombatHealth(cid, FLYINGDAMAGE, pos, waterarea, -min, -max, 255)

 

elseif spell == "Bite" or tonumber(spell) == 5 then

 

doAreaCombatHealth(cid, DARKDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 146)

 

elseif spell == "Super Fang" then

 

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 244)

 

elseif spell == "Poison Fang" then

 

doSendMagicEffect(getThingPositionWithDebug(target), 244)

 

local function doBite(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 114)

end

 

addEvent(doBite, 200, cid, target)

 

elseif spell == "Sting Gun" then

 

local function doGun(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

if isSleeping(cid) then return true end

doSendDistanceShoot(getThingPos(cid), getThingPositionWithDebug(target), 13)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 8)

end

 

addEvent(doGun, 0, cid, target)

addEvent(doGun, 100, cid, target)

addEvent(doGun, 200, cid, target)

 

elseif spell == "Acid" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 14)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 20)

 

elseif spell == "Fear" or spell == "Roar" then

 

local rounds = 5

 

local uid = checkAreaUid(getCreaturePosition(cid), confusion, 1, 1)

for _,pid in pairs(uid) do

if isSummon(cid) and (isMonster(pid) or isSummon(pid)) and pid ~= cid then

if isSummon(pid) and canAttackOther(cid, pid) == "Can" then

addEvent(doAdvancedFear, 300, pid, rounds, getPlayerStorageValue(pid, 3894), cid, spell)

elseif isMonster(pid) then

addEvent(doAdvancedFear, 300, pid, rounds, getPlayerStorageValue(pid, 3894), cid, spell)

end

elseif isMonster(cid) and (isSummon(pid) or isPlayer(pid)) and pid ~= cid then

if isPlayer(pid) and #getCreatureSummons(pid) <= 0 then

addEvent(doAdvancedFear, 300, pid, rounds, getPlayerStorageValue(pid, 3894), cid, spell)

elseif isSummon(pid) then

addEvent(doAdvancedFear, 300, pid, rounds, getPlayerStorageValue(pid, 3894), cid, spell)

end

end

end

 

elseif spell == "Iron Tail" then

 

local function rebackSpd(cid, sss)

if not isCreature(cid) then return true end

doChangeSpeed(cid, sss)

setPlayerStorageValue(cid, 446, -1)

end

 

local x = getCreatureSpeed(cid)

doFaceOpposite(cid)

doChangeSpeed(cid, -x)

addEvent(rebackSpd, 400, cid, x)

setPlayerStorageValue(cid, 446, 1)

doAreaCombatHealth(cid, STEELDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 160)

 

elseif spell == "Thunder Shock" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 40)

doAreaCombatHealthAtDistance(cid, ELECTRICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 48)

 

elseif spell == "Thunder Bolt" then

 

local function doThunderHit(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

if isSleeping(cid) then return true end

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 48)

end

 

local function doThunderFall(cid, frompos, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

local ry = math.abs(frompos.y - pos.y)

doSendDistanceShoot(frompos, getThingPositionWithDebug(target), 41)

addEvent(doThunderHit, ry * 11, cid, target)

end

 

local function doThunderUp(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

local mps = getThingPositionWithDebug(cid)

local xrg = math.floor((pos.x - mps.x) / 2)

local topos = mps

topos.x = topos.x + xrg

local rd = 7

topos.y = topos.y - rd

doSendDistanceShoot(getThingPositionWithDebug(cid), topos, 41)

addEvent(doThunderFall, rd * 49, cid, topos, target)

end

 

local alvo = target

 

for thnds = 1, 2 do

addEvent(doThunderUp, thnds * 155, cid, alvo)

end

 

elseif spell == "Thunder Wave" then

 

--(cid, area, eff, cd, nameAtk, cond, element, min, max)

doMoveInAreaWithMiss(cid, tw1, 48, 9, spell, 1, ELECTRICDAMAGE, min, max)

 

elseif spell == "Thunder" then

 

--(cid, area, eff, cd, nameAtk, cond, element, min, max)

doMoveInAreaWithMiss(cid, thunderr, 48, 9, spell, 1, ELECTRICDAMAGE, min, max)

 

elseif spell == "Mega Kick" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 39)

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 113)

 

elseif spell == "Thunder Punch" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 39)

doSendMagicEffect(getThingPositionWithDebug(target), 112)

 

local function doPunch(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 48)

end

 

addEvent(doPunch, 200, cid, target)

 

elseif spell == "Electric Storm" then

 

local master = isSummon(cid) and getCreatureMaster(cid) or cid

for rocks = 1, 62 do

addEvent(fall, rocks*35, cid, master, ELECTRICDAMAGE, 41, 48)

end

addEvent(doMoveInAreaWithMiss, 500, cid, BigArea2, 48, 9, spell, 1, ELECTRICDAMAGE, min, max)

 

elseif spell == "Mud Shot" or spell == "Mud Slap" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 6)

doTargetCombatHealth(cid, target, GROUNDDAMAGE, -min, -max, 34)

if canDoMiss(target, spell) then

doMissSyst(target, 9, 34, getPlayerStorageValue(target, 32659), 1)

end

 

elseif spell == "Rollout" then

local outfits = {

["Voltorb"] = {lookType = 638},

["Electrode"] = {lookType = 637},

["Sandshrew"] = {lookType = 635},

["Sandslash"] = {lookType = 636},

["Phanpy"] = {lookType = 1005},

["Dolphan"] = {lookType = 1007},

["Miltank"] = {lookType = 1006},

["Golem"] = {lookType = 639},

["Shiny Electrode"] = {lookType = 1387},

["Shiny Sandshrew"] = {lookType = 1390},

["Shiny Sandslash"] = {lookType = 1389},

["Shiny Golem"] = {lookType = 1403},

["Shiny Voltorb"] = {lookType = 1388}

}

 

if outfits[getCreatureName(cid)] then

doSetCreatureOutfit(cid, outfits[getCreatureName(cid)], 8300)

end

 

--doCreatureAddCondition(cid, rollspeedcondition)

 

local outfit = getCreatureOutfit(cid).lookType

 

local function roll(cid, outfit)

if not isCreature(cid) then return true end

if getCreatureOutfit(cid).lookType ~= outfit then return true end

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(cid), splash, -min, -max, 255)

end

 

for r = 1, 11 do --8

addEvent(roll, 750 * r, cid, outfit)

end

 

elseif spell == "Shockwave" then

 

local posicao = getThingPositionWithDebug(cid)

 

local function doShockWave(cid, pos, varx, vary, effect)

if isCreature(cid) and isSightClear(posicao, pos, false) then

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

if isSleeping(cid) then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, pos, whirl3, -min, -max, 255)

doSendMagicEffect({x = pos.x + varx, y = pos.y + vary, z = pos.z}, effect)

end

end

 

local effect = 255

local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)

 

if a == 0 then

effect = 126

for sw = 0, 5 do

addEvent(doShockWave, 325 * sw, cid, {x = posicao.x, y = posicao.y - (sw + 1), z = posicao.z}, 1, 1, effect)

end

elseif a == 2 then

effect = 125

for sw = 0, 5 do

addEvent(doShockWave, 325 * sw, cid, {x = posicao.x, y = posicao.y + (sw + 1), z = posicao.z}, 1, 1, effect)

end

elseif a == 1 then

effect = 124

for sw = 0, 5 do

addEvent(doShockWave, 325 * sw, cid, {x = posicao.x + (sw + 1), y = posicao.y, z = posicao.z}, 1, 1, effect)

end

elseif a == 3 then

effect = 123

for sw = 0, 5 do

addEvent(doShockWave, 325 * sw, cid, {x = posicao.x - (sw + 1), y = posicao.y, z = posicao.z}, 1, 1, effect)

end

end

 

elseif spell == "Earthshock" then

 

doAreaCombatHealth(cid, GROUNDDAMAGE, getThingPositionWithDebug(cid), splash, -min, -max, 255)

 

local sps = getThingPositionWithDebug(cid)

sps.x = sps.x+1

sps.y = sps.y+1

doSendMagicEffect(sps, 127)

 

elseif spell == "Earthquake" then

 

local function doQuake(cid)

if not isCreature(cid) then return false end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doMoveInArea(cid, 0, 118, confusion, min, max, GROUNDDAMAGE, spell)

end

 

addEvent(doQuake, 000, cid)

addEvent(doQuake, 500, cid) -- +500

addEvent(doQuake, 1000, cid) -- +500

addEvent(doQuake, 1500, cid) -- +500

addEvent(doQuake, 2300, cid) -- +800

addEvent(doQuake, 2800, cid) -- +500

addEvent(doQuake, 3300, cid) -- +500

addEvent(doQuake, 3800, cid) -- +500

addEvent(doQuake, 4600, cid) -- +800

addEvent(doQuake, 5100, cid) -- +500

addEvent(doQuake, 5600, cid) -- +500

addEvent(doQuake, 6100, cid) -- +500

addEvent(doQuake, 6900, cid) -- +800

addEvent(doQuake, 7400, cid) -- +500

addEvent(doQuake, 7900, cid) -- +500

addEvent(doQuake, 8400, cid) -- +500

addEvent(doQuake, 9200, cid) -- +800

addEvent(doQuake, 1000, cid) -- +800

 

 

elseif spell == "Stomp" then

 

doMoveInAreaWithMiss(cid, stomp, 34, 9, spell, 1, GROUNDDAMAGE, min, max)

 

elseif spell == "Toxic Sparkes" then

 

local function doToxic(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doSendDistanceShoot(getThingPos(cid), getThingPositionWithDebug(target), 15)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 114)

end

 

addEvent(doToxic, 0, cid, target)

addEvent(doToxic, 300, cid, target)

--addEvent(doToxic, 400, cid, target)

 

elseif spell == "Horn Drill" then

 

local function doHorn(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doSendDistanceShoot(getThingPos(cid), getThingPositionWithDebug(target), 25)

doAreaCombatHealthAtDistance(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 0)

end

 

addEvent(doHorn, 0, cid, target)

addEvent(doHorn, 300, cid, target)

 

elseif spell == "Doubleslap" then

 

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPos(target), 0, -min, -max, 148)

 

elseif spell == "Lovely Kiss" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 16)

doSendMagicEffect(getThingPos(target), 147)

if canAttackOther(cid, target) == "Can" then

doMissSyst(target, 9, 147, getPlayerStorageValue(target, 32659), 1)

end

 

elseif spell == "Sing" then

 

doAreaCombatHealth(cid, SLEEP_POWDERDAMAGE, getThingPositionWithDebug(cid), powders, -6, -10, 33)

 

elseif spell == "Multislap" then

 

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPos(cid), splash, -min, -max, 3)

 

elseif spell == "Metronome" then

 

local spells = {"Shadow Storm", "Electric Storm", "Magma Storm", "Blizzard", "Leaf Storm", "Hydropump", "Falling Rocks"}

 

local random = math.random(1, #spells)

 

local randommove = spells[random]

local pos = getThingPos(cid)

pos.y = pos.y - 1

 

doSendMagicEffect(pos, 161)

 

local function doMetronome(cid, spell)

if not isCreature(cid) then return true end

docastspell(cid, spell)

doCreatureSay(cid, ""..string.upper(spell).."!", TALKTYPE_MONSTER)

end

 

addEvent(doMetronome, 100, cid, randommove)

 

elseif spell == "Focus" then

 

doSendAnimatedText(getThingPos(cid), "FOCUS", 144)

setPlayerStorageValue(cid, 253, 1)

 

elseif spell == "Flame Wheel" then

 

local function sendFireEff(cid, dir)

if not isCreature(cid) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doAreaCombatHealth(cid, FIREDAMAGE, getPosByDir(getThingPositionWithDebug(cid), dir), 0, -min, -max, 15)

end

 

local function doWheel(cid)

if not isCreature(cid) then return true end

local t = {

[1] = SOUTHWEST,

[2] = SOUTH,

[3] = SOUTHEAST,

[4] = EAST,

[5] = NORTHEAST,

[6] = NORTH,

[7] = NORTHWEST,

[8] = WEST,

[9] = SOUTHWEST,

}

for a = 1, 9 do

addEvent(sendFireEff, a * 140, cid, t[a])

end

end

 

doWheel(cid, false, cid)

 

elseif spell == "Hyper Voice" then

 

doMoveInAreaWithMiss(cid, tw1, 22, 9, spell, 0, NORMALDAMAGE, min, max)

 

elseif spell == "Restore" or spell == "Selfheal" then

 

local min = (getCreatureMaxHealth(cid) * 75) / 100

local max = (getCreatureMaxHealth(cid) * 85) / 100

 

local function doHealArea(cid, min, max)

local amount = math.random(min, max)

if (getCreatureHealth(cid) + amount) >= getCreatureMaxHealth(cid) then

amount = -(getCreatureHealth(cid)-getCreatureMaxHealth(cid))

end

if getCreatureHealth(cid) ~= getCreatureMaxHealth(cid) then

doCreatureAddHealth(cid, amount)

doSendAnimatedText(getThingPos(cid), "+"..amount.."", 65)

end

end

 

doSendMagicEffect(getThingPositionWithDebug(cid), 132)

doHealArea(cid, min, max)

 

 

elseif spell == "Healarea" then

 

local min = (getCreatureMaxHealth(cid) * 50) / 100

local max = (getCreatureMaxHealth(cid) * 60) / 100

 

local function doHealArea(cid, min, max)

local amount = math.random(min, max)

if (getCreatureHealth(cid) + amount) >= getCreatureMaxHealth(cid) then

amount = -(getCreatureHealth(cid)-getCreatureMaxHealth(cid))

end

if getCreatureHealth(cid) ~= getCreatureMaxHealth(cid) then

doCreatureAddHealth(cid, amount)

doSendAnimatedText(getThingPos(cid), "+"..amount.."", 65)

end

end

 

local pos = getPosfromArea(cid, heal)

local n = 0

 

while n < #pos do

n = n+1

thing = {x=pos[n].x,y=pos[n].y,z=pos[n].z,stackpos=253}

local pid = getThingFromPosWithProtect(cid, thing)

doSendMagicEffect(pos[n], 12)

doHealArea(cid, min, max)

if isCreature(pid) then

if isSummon(cid) and (isSummon(pid) or isPlayer(pid)) then

if canAttackOther(cid, pid) == "Cant" then

doHealArea(pid, min, max)

end

elseif isSummon(cid) and isMonster(pid) then

 

elseif isMonster(cid) and isMonster(pid) then

doHealArea(pid, min, max)

end

end

end

 

elseif spell == "Toxic" then

 

doMoveInArea(cid, 0, 114, reto5, min, max, POISONDAMAGE, spell)

 

elseif spell == "Absorb" then

 

local life = getCreatureHealth(target)

 

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 14)

 

local newlife = life - getCreatureHealth(target)

 

doSendMagicEffect(getThingPositionWithDebug(cid), 14)

if newlife >= 1 then

doCreatureAddHealth(cid, newlife)

doSendAnimatedText(getThingPositionWithDebug(cid), "+"..newlife.."", 32)

end

 

elseif spell == "Poison Bomb" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 14)

doAreaCombatHealthAtDistance(cid, POISONDAMAGE, getThingPositionWithDebug(target), bombWee2, -min, -max, 20)

 

elseif spell == "Poison Gas" then

 

local function gas(cid)

if not isCreature(cid) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

--doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(cid), bombWee3, -min, -max, 114)

doMoveInAreaWithMiss(cid, confusion, 114, 13, spell, 0, POISONDAMAGE, min, max)

end

 

addEvent(gas, 000, cid)

addEvent(gas, 500, cid) -- +500

addEvent(gas, 1000, cid) -- +500

addEvent(gas, 1500, cid) -- +500

addEvent(gas, 2300, cid) -- +800

addEvent(gas, 2800, cid) -- +500

addEvent(gas, 3300, cid) -- +500

addEvent(gas, 3800, cid) -- +500

addEvent(gas, 4600, cid) -- +800

addEvent(gas, 5100, cid) -- +500

addEvent(gas, 5600, cid) -- +500

addEvent(gas, 6100, cid) -- +500

addEvent(gas, 6900, cid) -- +800

addEvent(gas, 7400, cid) -- +500

addEvent(gas, 7900, cid) -- +500

addEvent(gas, 8400, cid) -- +500

addEvent(gas, 9200, cid) -- +800

addEvent(gas, 1000, cid) -- +800

 

elseif spell == "Petal Dance" then

 

doMoveInAreaMulti(cid, 21, 245, bullet, bulletDano, GRASSDAMAGE, min, max)

 

elseif spell == "Slash" then

 

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 159)

 

elseif spell == "X-Scissor" then

 

local a = getThingPos(cid)

 

local X = {

{{x = a.x+1, y = a.y, z = a.z}, 16}, --norte

{{x = a.x+2, y = a.y+1, z = a.z}, 221}, --leste

{{x = a.x+1, y = a.y+2, z = a.z}, 223}, --sul

{{x = a.x, y = a.y+1, z = a.z}, 243}, --oeste

}

 

local pos = X[mydir+1]

 

for b = 1, 3 do

addEvent(doSendMagicEffect, b * 70, pos[1], pos[2])

end

 

doMoveInArea(cid, 0, 2, xScissor, min, max, BUGDAMAGE, spell)

 

elseif spell == "Psychic" then

--rever area...

doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPositionWithDebug(cid), selfArea2, -min, -max, 133)

 

elseif spell == "Pay Day" then

 

local function doThunderHit(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 28)

end

 

local function doThunderFall(cid, frompos, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

local ry = math.abs(frompos.y - pos.y)

doSendDistanceShoot(frompos, getThingPositionWithDebug(target), 39)

addEvent(doThunderHit, ry * 11, cid, target)

end

 

local function doThunderUp(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

local mps = getThingPositionWithDebug(cid)

local xrg = math.floor((pos.x - mps.x) / 2)

local topos = mps

topos.x = topos.x + xrg

local rd = 7

topos.y = topos.y - rd

doSendDistanceShoot(getThingPositionWithDebug(cid), topos, 39)

addEvent(doThunderFall, rd * 49, cid, topos, target)

end

 

local alvo = target

 

for thnds = 1, 2 do

addEvent(doThunderUp, thnds * 155, cid, alvo)

end

 

elseif spell == "Psywave" then

 

--(cid, rounds, eff, area, min, max, element, spell)

doMoveInArea(cid, 0, 133, tw1, min, max, PSYCHICDAMAGE, spell)

 

elseif spell == "Triple Kick" or spell == "Triple Kick Lee" then

 

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPos(target), 0, -min, -max, 110)

 

elseif spell == "Karate Chop" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 39)

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPos(target), 0, -min, -max, 113)

 

elseif spell == "Ground Chop" then

 

doMoveInArea(cid, 0, 111, reto5, min, max, FIGHTINGDAMAGE, spell)

 

elseif spell == "Mega Punch" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 39)

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPos(target), 0, -min, -max, 112)

 

elseif spell == "Tri Flames" then

 

doMoveInArea(cid, 0, 6, triflames, min, max, FIREDAMAGE)

 

elseif spell == "War Dog" then

 

doBuffSyst(cid, 15, 28, getPlayerStorageValue(cid, 36847), spell, true)

 

elseif spell == "Hypnosis" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 24)

doAreaCombatHealthAtDistance(cid, SLEEP_POWDERDAMAGE, getThingPositionWithDebug(target), 0, -5, -9, 255)

 

elseif spell == "Dizzy Punch" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 26)

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 112)

local rounds = getPokemonLevel(cid) / 12

rounds = rounds + 2

doAdvancedConfuse(target, rounds, getPlayerStorageValue(target, 3891))

 

elseif spell == "Ice Punch" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 28)

doSendMagicEffect(getThingPositionWithDebug(target), 112)

 

local function doPunch(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 43)

end

 

addEvent(doPunch, 200, cid, target)

 

elseif spell == "Ice Beam" then

 

local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)

 

doMoveInAreaWithMiss(cid, reto5, 43, 9, spell, 1, ICEDAMAGE, 0, 0)

if a == 0 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg1n, -min, -max, 99)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg2n, -min, -max, 105)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg3n, -min, -max, 103)

elseif a == 2 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg1s, -min, -max, 98)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg2s, -min, -max, 105)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg3s, -min, -max, 102)

elseif a == 1 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg1e, -min, -max, 96)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg2e, -min, -max, 104)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg3e, -min, -max, 100)

elseif a == 3 then

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg1w, -min, -max, 97)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg2w, -min, -max, 104)

doAreaCombatHealth(cid, ICEDAMAGE, getThingPositionWithDebug(cid), wg3w, -min, -max, 101)

end

 

elseif spell == "Psy Pulse" or spell == "Cyber Pulse" then

 

local function doPulse(cid, eff)

if not isCreature(cid) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 3)

doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPositionWithDebug(cid), 0, -min, -max, eff)

end

 

if spell == "Cyber Pulse" then

eff = 11

else

eff = 133

end

addEvent(doPulse, 0, cid, eff)

addEvent(doPulse, 250, cid, eff)

 

elseif spell == "Psyusion" then

 

local rounds = math.random(4, 7)

rounds = rounds + math.floor(getPokemonLevel(cid) / 35)

local eff = {136, 133, 136, 133}

local area = {psy1, psy2, psy3, psy4}

 

--doMoveInArea(cid, rounds, eff, area, min, max, element, spell)

doMoveInArea(cid, rounds, 136, psy1, min, max, PSYCHICDAMAGE, spell)

addEvent(doMoveInArea, 3*400, cid, rounds, 137, psy5, min, max, PSYCHICDAMAGE, spell)

for i = 1, 3 do

addEvent(doMoveInArea, i*400, cid, rounds, eff[i+1], area[i+1], min, max, PSYCHICDAMAGE, spell)

end

 

elseif spell == "Triple Punch" then

 

doAreaCombatHealth(cid, FIGHTINGDAMAGE, getThingPos(target), 0, -min, -max, 110)

 

elseif spell == "Fist Machine" then

 

local mpos = getThingPositionWithDebug(cid)

local b = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)

local effect = 0

local xvar = 0

local yvar = 0

 

if b == SOUTH then

effect = 218

yvar = 2

elseif b == NORTH then

effect = 217

elseif b == WEST then

effect = 216

elseif b == EAST then

effect = 215

xvar = 2

end

 

mpos.x = mpos.x + xvar

mpos.y = mpos.y + yvar

 

doSendMagicEffect(mpos, effect)

doMoveInArea(cid, 0, 0, machine, min, max, FIGHTINGDAMAGE)

 

elseif spell == "Destroyer Hand" then

 

doMoveInAreaMulti(cid, 26, 0, bullet, bulletDano, FIGHTINGDAMAGE, min, max)

 

elseif spell == "Rock Throw" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 11)

doAreaCombatHealthAtDistance(cid, ROCKDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 44)

 

elseif spell == "Rock Slide" then

 

local function doRockHurt(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doAreaCombatHealth(cid, ROCKDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 44)

end

 

local function doFallRock(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

pos.x = pos.x + math.random(-3, 1)

local ry = math.random(5, 7)

pos.y = pos.y - ry

doSendDistanceShoot(pos, getThingPositionWithDebug(target), 11)

addEvent(doRockHurt, ry * 52, cid, target)

end

 

local alvo = target

 

for rocks = 0, 4 do

addEvent(doFallRock, rocks * 65, cid, alvo)

end

 

elseif spell == "Falling Rocks" then

 

local master = isSummon(cid) and getCreatureMaster(cid) or cid

for rocks = 1, 62 do

addEvent(fall, rocks*35, cid, master, ROCKDAMAGE, 11, 44)

end

addEvent(doAreaCombatHealth, 500, cid, ROCKDAMAGE, getThingPos(cid), waterarea, -min, -max, 255)

 

elseif spell == "Selfdestruct" then

 

local function death(cid)

if isCreature(cid) then

if pokes[getCreatureName(cid)].type == "psychic" or pokes[getCreatureName(cid)].type2 == "psychic" then return true end

doCreatureAddHealth(cid, -getCreatureMaxHealth(cid))

end

end

 

doMoveInArea(cid, 0, 5, selfArea1, 0, 0, null, spell)

 

local life = getCreatureHealth(cid)

local uid = checkAreaUid(getCreaturePosition(cid), selfArea1, 1, 1)

for _,pid in pairs(uid) do

if isCreature(pid) then

if (getCreatureHealth(pid)-life) <= 0 then

dano = getCreatureHealth(pid)

else

dano = life

end

if isSummon(cid) and (isMonster(pid) or isSummon(pid)) and canDoSelf and pid ~= cid then

if isSummon(pid) and canAttackOther(cid, pid) == "Can" then

doSendAnimatedText(getThingPos(pid), "-"..dano.."", COLOR_NORMAL)

doCreatureAddHealth(pid, -dano)

elseif isMonster(pid) then

doSendAnimatedText(getThingPos(pid), "-"..dano.."", COLOR_NORMAL)

doCreatureAddHealth(pid, -dano)

end

elseif isMonster(cid) and isSummon(pid) and canDoSelf and pid ~= cid then

doSendAnimatedText(getThingPos(pid), "-"..dano.."", COLOR_NORMAL) --144

doCreatureAddHealth(pid, -dano)

elseif isPlayer(pid) and #getCreatureSummons(pid) <= 0 and canDoSelf and canAttackOther(cid, pid) then

doSendAnimatedText(getThingPos(pid), "-"..dano.."", COLOR_NORMAL)

doCreatureAddHealth(pid, -dano)

end

end

end

 

addEvent(death, 300, cid)

 

elseif spell == "Crusher Stomp" then

 

local pL = getThingPos(cid)

pL.x = pL.x+5

pL.y = pL.y+1

-----------------

local pO = getThingPos(cid)

pO.x = pO.x-3

pO.y = pO.y+1

------------------

local pN = getThingPos(cid)

pN.x = pN.x+1

pN.y = pN.y+5

-----------------

local pS = getThingPos(cid)

pS.x = pS.x+1

pS.y = pS.y-3

 

local po = {pL, pO, pN, pS}

local po2 = {

{x = pL.x, y = pL.y-1, z = pL.z},

{x = pO.x, y = pO.y-1, z = pO.z},

{x = pN.x-1, y = pN.y, z = pN.z},

{x = pS.x-1, y = pS.y, z = pS.z},

}

for i = 1, 4 do

doSendMagicEffect(po, 127)

doAreaCombatHealth(cid, GROUNDDAMAGE, po2, crusher, -min, -max, 255)

end

doMoveInAreaWithMiss(cid, stomp, 34, 9, spell, 1, GROUNDDAMAGE, min, max)

 

elseif spell == "Water Pulse" then

 

doMoveInArea(cid, 0, 68, reto5, min, max, WATERDAMAGE, spell)

 

elseif spell == "Sonicboom" then

 

local function doBoom(cid)

if not isCreature(cid) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 33)

doAreaCombatHealthAtDistance(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

end

 

addEvent(doBoom, 0, cid)

addEvent(doBoom, 250, cid)

 

elseif spell == "Stickmerang" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 34)

doAreaCombatHealthAtDistance(cid, FLYINGDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 212)

 

elseif spell == "Stickslash" then

 

local function sendStickEff(cid, dir)

if not isCreature(cid) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doAreaCombatHealth(cid, FLYINGDAMAGE, getPosByDir(getThingPositionWithDebug(cid), dir), 0, -min, -max, 212)

end

 

local function doStick(cid)

if not isCreature(cid) then return true end

local t = {

[1] = SOUTHWEST,

[2] = SOUTH,

[3] = SOUTHEAST,

[4] = EAST,

[5] = NORTHEAST,

[6] = NORTH,

[7] = NORTHWEST,

[8] = WEST,

[9] = SOUTHWEST,

}

for a = 1, 9 do

addEvent(sendStickEff, a * 140, cid, t[a])

end

end

 

doStick(cid, false, cid)

 

elseif spell == "Stick Throw" then

 

local a = getCreatureSpeed(cid)

doChangeSpeed(cid, -a)

 

 

doMoveInArea(cid, 0, 212, reto4, min, max, FLYINGDAMAGE, spell)

 

local function nois(cid, s)

if not isCreature(cid) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doChangeSpeed(cid, s)

end

 

addEvent(nois, 2000, cid, a)

 

elseif spell == "Pluck" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 39)

doAreaCombatHealthAtDistance(cid, FLYINGDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 111)

 

elseif spell == "Tri-attack" then

 

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPos(target), 0, -min, -max, 110)

 

elseif spell == "Ice Shards" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 28)

doAreaCombatHealthAtDistance(cid, ICEDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 43)

 

elseif spell == "Icy Wind" then

 

doMoveInAreaWithMiss(cid, tw1, 43, 9, spell, 1, ICEDAMAGE, min, max)

 

elseif spell == "Aurora Beam" then

 

local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)

local t = {

[0] = 57,

[1] = 234,

[2] = 58,

[3] = 209,

}

 

doMoveInAreaWithMiss(cid, reto4, t[a], 9, spell, 1, ICEDAMAGE, min, max)

 

elseif spell == "Rest" then

 

doBuffSyst(cid, 6, 0, getPlayerStorageValue(cid, 36847), spell, true)

 

elseif spell == "Sludge" then

 

local function doSludgeHit(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doAreaCombatHealth(cid, POISONDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 116)

end

 

local function doSludgeFall(cid, frompos, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

local ry = math.abs(frompos.y - pos.y)

doSendDistanceShoot(frompos, getThingPositionWithDebug(target), 6)

addEvent(doSludgeHit, ry * 11, cid, target)

end

 

local function doSludgeUp(cid, target)

if not isCreature(target) or not isCreature(cid) then return true end

local pos = getThingPositionWithDebug(target)

local mps = getThingPositionWithDebug(cid)

local xrg = math.floor((pos.x - mps.x) / 2)

local topos = mps

topos.x = topos.x + xrg

local rd = 7

topos.y = topos.y - rd

doSendDistanceShoot(getThingPositionWithDebug(cid), topos, 6)

addEvent(doSludgeFall, rd * 49, cid, topos, target)

end

 

local alvo = target

 

for thnds = 1, 2 do

addEvent(doSludgeUp, thnds * 155, cid, alvo)

end

doMissSyst(alvo, 9, 34, getPlayerStorageValue(alvo, 32659), 0)

 

elseif spell == "Mud Bomb" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 6)

addEvent(doAreaCombatHealth, 200, cid, GROUNDDAMAGE, getThingPos(target), bombWee2, -min, -max, 116)

--------miss syst--------------

local uid = checkAreaUid(getThingPos(target), bombWee1, 1, 1)

for _,pid in pairs(uid) do

if isCreature(pid) then

if isSummon(cid) and (isMonster(pid) or isSummon(pid) or isPlayer(pid)) and pid ~= cid then

if (isSummon(pid) or (isPlayer(pid) and #getCreatureSummons(pid) <= 0)) and canAttackOther(cid, pid) == "Can" then

doMissSyst(pid, 9, 34, getPlayerStorageValue(pid, 32659), 0)

elseif isMonster(pid) then

doMissSyst(pid, 9, 34, getPlayerStorageValue(pid, 32659), 0)

end

elseif isMonster(cid) and (isSummon(pid) or isPlayer(pid)) and pid ~= cid then

if isPlayer(pid) and #getCreatureSummons(pid) <= 0 then

doMissSyst(pid, 9, 34, getPlayerStorageValue(pid, 32659), 0)

elseif isSummon(pid) then

doMissSyst(pid, 9, 34, getPlayerStorageValue(pid, 32659), 0)

end

end

end

end

 

elseif spell == "Mortal Gas" then

 

local pos = getThingPositionWithDebug(cid)

 

local function doSendAcid(cid, pos)

if not isCreature(cid) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), pos, 14)

doSendMagicEffect(pos, 114)

end

 

for b = 1, 3 do

for a = 1, 20 do

local lugar = {x = pos.x + math.random(-4, 4), y = pos.y + math.random(-3, 3), z = pos.z}

addEvent(doSendAcid, a * 75, cid, lugar)

end

end

doAreaCombatHealth(cid, POISONDAMAGE, pos, waterarea, -min, -max, 255)

 

elseif spell == "Mega Horn" then

 

--cid, effDist, effDano, areaEff, areaDano, element, min, max

doMoveInAreaMulti(cid, 25, 44, bullet, bulletDano, ROCKDAMAGE, min, max)

 

elseif spell == "Egg Bomb" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 12)

doAreaCombatHealthAtDistance(cid, NORMALDAMAGE, getThingPositionWithDebug(target), crusher, -min, -max, 5)

 

elseif spell == "Super Vines" then

 

doCreatureSetLookDir(cid, 2)

local a = getCreatureSpeed(cid)

doChangeSpeed(cid, -a)

 

local effect = 0

local pos = getThingPositionWithDebug(cid)

pos.x = pos.x + 1

pos.y = pos.y + 1

 

if getCreatureOutfit(cid).lookType == 369 then

effect = 213

else

effect = 229

end

 

doSendMagicEffect(pos, effect)

doAreaCombatHealth(cid, GRASSDAMAGE, getThingPositionWithDebug(cid), splash, -min, -max, 255)

 

local function nois(cid, s)

if not isCreature(cid) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doChangeSpeed(cid, s)

end

 

addEvent(nois, 200, cid, a)

 

elseif spell == "Epicenter" then

 

doMoveInArea(cid, 0, 127, epicenter, min, max, GROUNDDAMAGE, spell)

 

elseif spell == "Bubblebeam" then

 

local function sendBubbles(cid)

if not isCreature(cid) or not isCreature(target) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 2)

doAreaCombatHealthAtDistance(cid, WATERDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 25)

end

 

sendBubbles(cid)

addEvent(sendBubbles, 100, cid)

 

elseif spell == "Swift" then

 

local function sendSwift(cid)

if not isCreature(cid) or not isCreature(target) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 32)

doAreaCombatHealthAtDistance(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 3)

end

 

sendSwift(cid)

addEvent(sendSwift, 200, cid)

 

elseif spell == "Spark" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 32)

doAreaCombatHealthAtDistance(cid, ELECTRICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 43)

 

 

elseif spell == "Mimic Wall" then

 

local p = getThingPos(cid)

local dirr = getCreatureLookDir(cid)

 

if dirr == 0 or dirr == 2 then

item = 11439

else

item = 11440

end

 

local wall = {

[0] = {{x = p.x, y = p.y-1, z = p.z}, {x = p.x+1, y = p.y-1, z = p.z}, {x = p.x-1, y = p.y-1, z = p.z}},

[2] = {{x = p.x, y = p.y+1, z = p.z}, {x = p.x+1, y = p.y+1, z = p.z}, {x = p.x-1, y = p.y+1, z = p.z}},

[1] = {{x = p.x+1, y = p.y, z = p.z}, {x = p.x+1, y = p.y+1, z = p.z}, {x = p.x+1, y = p.y-1, z = p.z}},

[3] = {{x = p.x-1, y = p.y, z = p.z}, {x = p.x-1, y = p.y+1, z = p.z}, {x = p.x-1, y = p.y-1, z = p.z}},

}

 

function removeAllActionIDs(cid, pos, onlyOne)

if onlyOne then

local thing1 = {x=pos.x,y=pos.y,z=pos.z,stackpos=0}

local tile1 = getTileThingWithProtect(cid, thing1).uid

doSetItemActionId(tile1, 0)

end

n = 0

for i = 1, #pos do

n = n + 1

thing = {x=pos[n].x,y=pos[n].y,z=pos[n].z,stackpos=0}

local tile = getTileThingWithProtect(cid, thing).uid

doSetItemActionId(tile, 0)

end

end

 

 

for i = 1, 3 do

if wall[dirr] then

local t = wall[dirr]

if canWalkOnPos(t, false, false, true, true, true) and hasTile(cid, t) then

doCreateItem(item, 1, t)

--

local Tile = getTileThingWithProtect(cid, {x=t.x,y=t.y,z=t.z,stackpos=0})

doSetItemActionId(Tile.uid, 88072)

addEvent(removeAllActionIDs, 15000, cid, t, true)

--

addEvent(doRemoveItemFromPos, 15000, t, item, 1)

end

end

end

 

local pos = getPosfromArea(cid, wall_1)

local pos2 = getPosfromArea(cid, wall_2)

 

if hasTile(cid, {x=p.x,y=p.y,z=p.z,stackpos=0}) then

tile0 = getTileThingWithProtect(cid, {x=p.x,y=p.y,z=p.z,stackpos=0}).uid

end

doSetItemActionId(tile0, 88070)

addEvent(removeAllActionIDs, 15000, cid, p, true)

 

n = 0

 

while n < #pos do

if not isCreature(cid) then return true end

n = n+1

local tile1 = getTileThingWithProtect(cid, {x=pos[n].x,y=pos[n].y,z=pos[n].z,stackpos=0}).uid

---

local tile2 = getTileThingWithProtect(cid, {x=pos2[n].x,y=pos2[n].y,z=pos2[n].z,stackpos=0}).uid

 

doSetItemActionId(tile1, 88071)

doSetItemActionId(tile2, 88070)

end

addEvent(removeAllActionIDs, 15000, cid, pos)

addEvent(removeAllActionIDs, 15000, cid, pos2)

 

elseif spell == "Shredder Team" then

 

local team = {

["Scyther"] = "Scyther",

["Shiny Scyther"] = "Shiny Scyther",

["Scizor"] = "Scizor",

}

 

local function setStorage(cid, storage)

if isCreature(cid) then

if getPlayerStorageValue(cid, storage) >= 1 then

setPlayerStorageValue(cid, storage, 0)

end

end

end

 

local function RemoveTeam(cid)

if isCreature(cid) then

doSendMagicEffect(getThingPos(cid), 211)

doRemoveCreature(cid)

end

end

 

if getPlayerStorageValue(cid, 637500) >= 1 then

return true

end

 

local master = getCreatureMaster(cid)

local item = getPlayerSlotItem(master, 8)

local life, maxLife = getCreatureHealth(cid), getCreatureMaxHealth(cid)

local name = getItemAttribute(item.uid, "poke")

local pos = getThingPos(cid)

local time = 30

local pokelife = (getCreatureHealth(cid) / getCreatureMaxHealth(cid))

 

doItemSetAttribute(item.uid, "hp", pokelife)

 

doDisapear(cid)

addEvent(doAppear, math.random(0, 5), cid)

if team[name] then

for b = 2, 3 do

doSummonMonster(master, team[name])

end

pk1 = getCreatureSummons(master)[1]

pk2 = getCreatureSummons(master)[2]

pk3 = getCreatureSummons(master)[3]

for a = 1, 3 do

local pk = {[1] = pk1, [2] = pk2, [3] = pk3}

doTeleportThing(pk[a], getClosestFreeTile(pk[a], pos), false)

adjustStatus(pk[a], item.uid, true, true, true)

doSendMagicEffect(getThingPos(pk[a]), 211)

end

setPlayerStorageValue(pk2, 637500, 1)

setPlayerStorageValue(pk3, 637500, 1)

setPlayerStorageValue(master, 637501, 1)

if getPlayerStorageValue(master, 89784) >= 1 then

for times = 1, getPlayerStorageValue(master, 89784) do

addEvent(sendMoveEffect, times*1500, pk2, 14)

addEvent(sendMoveEffect, times*1500, pk3, 14)

end

end

addEvent(setStorage, time * 1000, master, 637501)

addEvent(RemoveTeam, time * 1000, pk2)

addEvent(RemoveTeam, time * 1000, pk3)

end

 

 

elseif spell == "Team Slice" then

 

local master = getCreatureMaster(cid)

if #getCreatureSummons(master) < 2 or not isCreature(target) then return true end

 

local summons = getCreatureSummons(master)

local posis = {[1] = pos1, [2] = pos2, [3] = pos3}

local a = getCreatureSpeed(cid)

 

if getCreatureOutfit(cid).lookType == 366 then

eff = 27

elseif getCreatureOutfit(cid).lookType == 1317 then

eff = 29

end

 

local function nois(cid, s)

if not isCreature(cid) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doChangeSpeed(cid, s)

end

 

if #getCreatureSummons(master) >= 2 and isCreature(target) then

if isCreature(cid) then

addEvent(doTargetCombatHealth, 500, cid, target, BUGDAMAGE, -min, -max, 255)

for i = 1, #summons do

posis = getThingPos(summons)

doDisapear(summons)

doChangeSpeed(summons, -a)

addEvent(doSendMagicEffect, 300, posis, 211)

addEvent(doSendDistanceShoot, 350, posis, getThingPos(target), eff)

addEvent(doSendDistanceShoot, 450, getThingPos(target), posis, eff)

addEvent(doSendDistanceShoot, 600, posis, getThingPos(target), eff)

addEvent(doSendDistanceShoot, 650, getThingPos(target), posis, eff)

addEvent(nois, 670, summons, a)

addEvent(doAppear, 670, summons)

end

end

end

 

elseif spell == "Blizzard" then

 

local master = getCreatureMaster(cid) or 0

for rocks = 1, 62 do

addEvent(fall, rocks*35, cid, master, ICEDAMAGE, 28, 52)

end

addEvent(doMoveInAreaWithMiss, 500, cid, BigArea2, 43, 9, spell, 1, ICEDAMAGE, min, max)

 

elseif spell == "Great Love" then

 

local master = getCreatureMaster(cid) or 0

for rocks = 1, 62 do

addEvent(fall, rocks*35, cid, master, NORMALDAMAGE, 0, 147)

end

addEvent(doMoveInAreaWithMiss, 500, cid, BigArea2, 147, 9, spell, 1, NORMALDAMAGE, min, max)

 

elseif spell == "Fire Punch" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 39)

doSendMagicEffect(getThingPositionWithDebug(target), 112)

 

local function doPunch(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, FIREDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 35)

end

 

addEvent(doPunch, 200, cid, target)

 

elseif spell == "Guillotine" then

 

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 146)

 

elseif spell == "Hyper Beam" then

 

local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)

 

if a == 0 then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg1n, -min, -max, 152)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg2n, -min, -max, 158)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg3n, -min, -max, 156)

elseif a == 2 then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg1s, -min, -max, 151)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg2s, -min, -max, 158)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg3s, -min, -max, 155)

elseif a == 1 then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg1e, -min, -max, 149)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg2e, -min, -max, 157)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg3e, -min, -max, 153)

elseif a == 3 then

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg1w, -min, -max, 150)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg2w, -min, -max, 157)

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(cid), wg3w, -min, -max, 154)

end

 

elseif spell == "Thrash" then

 

--cid, effDist, effDano, areaEff, areaDano, element, min, max

doMoveInAreaMulti(cid, 10, 111, bullet, bulletDano, NORMALDAMAGE, min, max)

 

elseif spell == "Splash" or tonumber(spell) == 7 then

 

doAreaCombatHealth(cid, WATERDAMAGE, getThingPositionWithDebug(cid), splash, -min, -max, 255)

doSendMagicEffect(getThingPositionWithDebug(cid), 53)

 

elseif spell == "Dragon Breath" then

 

doMoveInArea(cid, 0, 143, db1, min, max, DRAGONDAMAGE, spell)

 

elseif spell == "Muddy Water" then

 

doMoveInAreaWithMiss(cid, muddy, 116, 9, spell, 0, WATERDAMAGE, min, max)

 

 

elseif spell == "Venom Motion" then

 

doMoveInAreaWithMiss(cid, muddy, 114, 9, spell, 0, POISONDAMAGE, min, max)

 

elseif spell == "Thunder Fang" then

 

doSendMagicEffect(getThingPositionWithDebug(target), 146)

 

local function doBite(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 48)

end

 

addEvent(doBite, 200, cid, target)

 

elseif spell == "Zap Cannon" or spell == "Charge Beam" then

 

local a = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)

 

if spell == "Zap Cannon" then

doMoveInArea(cid, 0, 207, duplo5, 0, 0, ELECTRICDAMAGE, spell)

end

 

if a == 0 then

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), wg1n, -min, -max, 94)

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), wg2n, -min, -max, 93)

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), wg3n, -min, -max, 95)

elseif a == 2 then

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), wg1s, -min, -max, 91)

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), wg2s, -min, -max, 93)

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), wg3s, -min, -max, 92)

elseif a == 1 then

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), wg1e, -min, -max, 86)

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), wg2e, -min, -max, 88)

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), wg3e, -min, -max, 87)

elseif a == 3 then

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), wg1w, -min, -max, 89)

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), wg2w, -min, -max, 88)

doAreaCombatHealth(cid, ELECTRICDAMAGE, getThingPositionWithDebug(cid), wg3w, -min, -max, 90)

end

 

elseif spell == "Sacred Fire" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 3)

doAreaCombatHealthAtDistance(cid, FIREDAMAGE, getThingPositionWithDebug(target), sacred, -min, -max, 143)

 

elseif spell == "Blaze Kick" then

 

doMoveInArea(cid, 0, 6, blaze, min, max, FIREDAMAGE, spell)

addEvent(doMoveInArea, 200, cid, 0, 6, kick, min, max, FIREDAMAGE, spell)

 

elseif spell == "Cross Chop" then

 

doMoveInArea(cid, 0, 118, blaze, min, max, FIGHTINGDAMAGE, spell)

addEvent(doMoveInArea, 200, cid, 0, 118, kick, min, max, FIGHTINGDAMAGE, spell)

 

elseif spell == "Overheat" then

 

doMoveInArea(cid, 0, 5, reto5, min, max, FIREDAMAGE, spell)

 

elseif spell == "Ancient Power" then

 

local posicao = getThingPositionWithDebug(cid)

 

local function fireBlast(cid, area1, area2, effect, area3)

if not isCreature(cid) then return true end

if not isSightClear(posicao, area1, false) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doAreaCombatHealth(cid, null, area1, 0, -min, -max, effect)

if area2.x ~= getThingPositionWithDebug(cid).x or area2.y ~= getThingPositionWithDebug(cid).y then

doAreaCombatHealth(cid, null, area2, area3, -min, -max, 137)

end

doAreaCombatHealth(cid, ROCKDAMAGE, area1, area3, -min, -max, 137)

end

 

local m = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)

 

if m == 0 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x, y = posicao.y - (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y - a, z = posicao.z}, 18, whirl3)

end

elseif m == 2 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x, y = posicao.y + (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y + a, z = posicao.z}, 18, whirl3)

end

elseif m == 1 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x + a + 1, y = posicao.y, z = posicao.z}, {x = posicao.x + a, y = posicao.y, z = posicao.z}, 18, whirl3)

end

elseif m == 3 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x - (a + 1), y = posicao.y, z = posicao.z}, {x = posicao.x - a, y = posicao.y, z = posicao.z}, 18, whirl3)

end

end

 

 

elseif spell == "Dark Portal" then

 

local posicao = getThingPositionWithDebug(cid)

 

local function fireBlast(cid, area1, area2, effect, area3)

if not isCreature(cid) then return true end

if not isSightClear(posicao, area1, false) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doAreaCombatHealth(cid, null, area1, 0, -min, -max, effect)

if area2.x ~= getThingPositionWithDebug(cid).x or area2.y ~= getThingPositionWithDebug(cid).y then

doAreaCombatHealth(cid, null, area2, area3, -min, -max, 137)

end

doAreaCombatHealth(cid, GHOSTDAMAGE, area1, area3, -min, -max, 137)

end

 

local m = isCreature(target) and getCreatureDirectionToTarget(cid, target) or getCreatureLookDir(cid)

 

if m == 0 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x, y = posicao.y - (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y - a, z = posicao.z}, 506, whirl3)

end

elseif m == 2 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x, y = posicao.y + (a + 1), z = posicao.z}, {x = posicao.x, y = posicao.y + a, z = posicao.z}, 506, whirl3)

end

elseif m == 1 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x + a + 1, y = posicao.y, z = posicao.z}, {x = posicao.x + a, y = posicao.y, z = posicao.z}, 506, whirl3)

end

elseif m == 3 then

for a = 0, 5 do

addEvent(fireBlast, 300 * a, cid, {x = posicao.x - (a + 1), y = posicao.y, z = posicao.z}, {x = posicao.x - a, y = posicao.y, z = posicao.z}, 506, whirl3)

end

end

 

 

elseif spell == "Twister" then

 

doMoveInAreaMulti(cid, 28, 41, bullet, bulletDano, DRAGONDAMAGE, min, max)

 

elseif spell == "Multi-Kick" then

 

doMoveInAreaMulti(cid, 39, 113, multi, multiDano, FIGHTINGDAMAGE, min, max)

 

elseif spell == "Multi-Punch" then

 

doMoveInAreaMulti(cid, 39, 112, multi, multiDano, FIGHTINGDAMAGE, min, max)

 

elseif spell == "Squisky Licking" then

 

addEvent(doMoveInAreaWithMiss, 0, cid, SL1, 145, 9, spell, 1, NORMALDAMAGE, min, max)

addEvent(doMoveInAreaWithMiss, 200, cid, SL2, 145, 9, spell, 1, NORMALDAMAGE, min, max)

addEvent(doMoveInAreaWithMiss, 400, cid, SL3, 145, 9, spell, 1, NORMALDAMAGE, min, max)

addEvent(doMoveInAreaWithMiss, 600, cid, SL4, 145, 9, spell, 1, NORMALDAMAGE, min, max)

 

elseif spell == "Lick" then

 

doMoveDano(cid, getCreatureTarget(cid), "Lick", NORMALDAMAGE, 0, 0, 0, 9, 2, 1)

doSendMagicEffect(getThingPos(getCreatureTarget(cid)), 145)

 

elseif spell == "Bonemerang" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 7)

doAreaCombatHealthAtDistance(cid, GROUNDDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 227)

addEvent(doSendDistanceShoot, 200, getThingPositionWithDebug(target), getThingPositionWithDebug(cid), 7)

 

elseif spell == "Bone Club" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 7)

doAreaCombatHealthAtDistance(cid, GROUNDDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 118)

 

elseif spell == "Bone Slash" then

 

local function sendStickEff(cid, dir)

if not isCreature(cid) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doAreaCombatHealth(cid, GROUNDDAMAGE, getPosByDir(getThingPositionWithDebug(cid), dir), 0, -min, -max, 227)

end

 

local function doStick(cid)

if not isCreature(cid) then return true end

local t = {

[1] = SOUTHWEST,

[2] = SOUTH,

[3] = SOUTHEAST,

[4] = EAST,

[5] = NORTHEAST,

[6] = NORTH,

[7] = NORTHWEST,

[8] = WEST,

[9] = SOUTHWEST,

}

for a = 1, 9 do

addEvent(sendStickEff, a * 140, cid, t[a])

end

end

 

doStick(cid, false, cid)

 

elseif spell == "Furious Legs" or spell == "Ultimate Champion" then

 

doBuffSyst(cid, 15, 13, getPlayerStorageValue(cid, 36847), spell, true)

 

elseif spell == "Sludge Rain" then

 

local master = getCreatureMaster(cid) or 0

for rocks = 1, 62 do

addEvent(fall, rocks*35, cid, master, POISONDAMAGE, 6, 116)

end

addEvent(doMoveInAreaWithMiss, 500, cid, BigArea2, 34, 9, spell, 0, POISONDAMAGE, min, max)

 

elseif spell == "Shadow Ball" then

 

doSendDistanceShoot(getThingPositionWithDebug(cid), getThingPositionWithDebug(target), 18)

 

local function doDamageWithDelay(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doAreaCombatHealth(cid, ghostDmg, getThingPositionWithDebug(target), 0, -min, -max, 255)

local pos = getThingPositionWithDebug(target)

pos.x = pos.x + 1

doSendMagicEffect(pos, 140)

end

 

addEvent(doDamageWithDelay, getDistDelay, cid, target)

 

elseif spell == "Shadow Punch" then

 

local pos = getThingPositionWithDebug(target)

doSendMagicEffect(pos, 112)

 

local function doPunch(cid, target)

if not isCreature(cid) or not isCreature(target) then return true end

if isSleeping(cid) then return false end

if getPlayerStorageValue(cid, 3894) >= 1 then return true end

doAreaCombatHealth(cid, ghostDmg, getThingPositionWithDebug(target), 0, -min, -max, 255)

local pos = getThingPositionWithDebug(target)

pos.x = pos.x + 1

doSendMagicEffect(pos, 140)

end

 

addEvent(doPunch, 300, cid, target)

 

 

elseif spell == "Shadow Storm" then

 

local master = isSummon(cid) and getCreatureMaster(cid) or cid

for rocks = 1, 62 do

addEvent(fall, rocks*35, cid, master, ghostDmg, 18, 140)

end --muda pra 2

addEvent(doMoveInArea, 500, cid, 0, 2, BigArea2, min, max, ghostDmg, spell)

 

 

elseif spell == "Invisible" then

 

doDisapear(cid)

addEvent(doAppear, 3000, cid)

 

doSendMagicEffect(getThingPositionWithDebug(cid), 134)

 

elseif spell == "Nightmare" then

 

if not isSleeping(target) then

doSendMagicEffect(getThingPositionWithDebug(target), 3)

doSendAnimatedText(getThingPositionWithDebug(target), "FAIL", 155)

return true

end

 

doAreaCombatHealth(cid, ghostDmg, getThingPositionWithDebug(target), 0, -min, -max, 138)

 

elseif spell == "Dream Eater" then

 

if not isSleeping(target) then

doSendMagicEffect(getThingPositionWithDebug(target), 3)

doSendAnimatedText(getThingPositionWithDebug(target), "FAIL", 155)

return true

end

 

local a = getCreatureHealth(target)

 

doAreaCombatHealth(cid, PSYCHICDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 138)

local b = getCreatureHealth(target)

local c = a - b

 

local amount = math.ceil(c / 2)

 

local function doHealArea(cid, min, max)

local amount = math.random(min, max)

if (getCreatureHealth(cid) + amount) >= getCreatureMaxHealth(cid) then

amount = -(getCreatureHealth(cid)-getCreatureMaxHealth(cid))

end

if getCreatureHealth(cid) ~= getCreatureMaxHealth(cid) then

doCreatureAddHealth(cid, amount)

doSendAnimatedText(getThingPos(cid), "+"..amount.."", 155)

end

end

 

doSendMagicEffect(getThingPositionWithDebug(cid), 132)

doHealArea(cid, amount, amount)

 

elseif spell == "Dark Eye" then

 

doSendMagicEffect(getThingPos(cid), 47)

setPlayerStorageValue(cid, 999457, 1)

 

elseif spell == "Elemental Hands" then

 

if getCreatureOutfit(cid).lookType == 1301 then

print("Error occurred with move 'Elemental Hands', outfit of hitmonchan is wrong")

doPlayerSendTextMessage(getCreatureMaster(cid), MESSAGE_STATUS_CONSOLE_BLUE, "A error are ocurred... A msg is sent to gamemasters!")

return true

end --proteçao pra n usar o move com o shiny hitmonchan com outfit diferente da do elite monchan do PO...

 

local e = getCreatureMaster(cid)

local name = getItemAttribute(getPlayerSlotItem(e, 8).uid, "poke")

local hands = getItemAttribute(getPlayerSlotItem(e, 8).uid, "hands")

 

if hands == 4 then

doItemSetAttribute(getPlayerSlotItem(e, 8).uid, "hands", 0)

doSendMagicEffect(getThingPositionWithDebug(cid), hitmonchans[name][0].eff)

doSetCreatureOutfit(cid, {lookType = hitmonchans[name][0].out}, -1)

else

doItemSetAttribute(getPlayerSlotItem(e, 8).uid, "hands", hands+1)

doSendMagicEffect(getThingPositionWithDebug(cid), hitmonchans[name][hands+1].eff)

doSetCreatureOutfit(cid, {lookType = hitmonchans[name][hands+1].out}, -1)

end

 

elseif spell == "Crabhammer" then

 

doAreaCombatHealth(cid, NORMALDAMAGE, getThingPositionWithDebug(target), 0, -min, -max, 225)

 

elseif spell == "Ancient Fury" then

 

doBuffSyst(cid, 15, 0, getPlayerStorageValue(cid, 36847), spell, true)

 

elseif spell == "Burn Skin" then

 

doBuffSyst(cid, 15, 0, getPlayerStorageValue(cid, 36847), spell, true)

 

elseif spell == "Divine Punishment" then

 

local roardirections = { --skill n terminada ;p mas da uma base ae pra galera o/

[NORTH] = {SOUTH},

[sOUTH] = {NORTH},

[WEST] = {EAST},

[EAST] = {WEST}}

 

local function divineBack(cid)

if not isCreature(cid) then return true end

local uid = checkAreaUid(getCreaturePosition(cid), check, 1, 1)

for _,pid in pairs(uid) do

dirrr = getCreatureDirectionToTarget(pid, cid)

delay = getNextStepDelay(pid, 0)

if isSummon(cid) and (isMonster(pid) or (isSummon(pid) and canAttackOther(cid, pid) == "Can") or (isPlayer(pid) and canAttackOther(cid, pid) == "Can")) and pid ~= cid then

setPlayerStorageValue(pid, 654878, 1)

doChangeSpeed(pid, -getCreatureSpeed(pid))

doChangeSpeed(pid, 100)

doPushCreature(pid, roardirections[dirrr][1], 1, 0)

doChangeSpeed(pid, -getCreatureSpeed(pid))

addEvent(setPlayerStorageValue, 6450, pid, 654878, -1)

addEvent(doRegainSpeed, 6450, pid)

elseif isMonster(cid) and (isSummon(pid) or (isPlayer(pid) and #getCreatureSummons(pid) <= 0)) and pid ~= cid then

setPlayerStorageValue(pid, 654878, 1)

doChangeSpeed(pid, -getCreatureSpeed(pid))

doChangeSpeed(pid, 100)

doPushCreature(pid, roardirections[dirrr][1], 1, 0)

doChangeSpeed(pid, -getCreatureSpeed(pid))

addEvent(doRegainSpeed, 6450, pid)

addEvent(setPlayerStorageValue, 6450, pid, 654878, -1)

end

end

end

 

local function doDivine(cid, min, max, spell, rounds, area)

if not isCreature(cid) then return true end

for i = 1, 9 do

addEvent(doMoveInArea, i*500, cid, rounds, 137, area, min, max, PSYCHICDAMAGE, spell)

end

end

 

local rounds = math.random(9, 12)

local area = {punish1, punish2, punish3, punish1, punish2, punish3, punish1, punish2, punish3}

 

local posi = getThingPos(cid)

posi.x = posi.x+1

posi.y = posi.y+1

 

doDisapear(cid)

doChangeSpeed(cid, -getCreatureSpeed(cid))

doSendMagicEffect(posi, 247)

addEvent(doAppear, 6450, cid)

addEvent(doRegainSpeed, 6450, cid)

 

local uid = checkAreaUid(getCreaturePosition(cid), check, 1, 1)

for _,pid in pairs(uid) do

if isSummon(cid) and (isMonster(pid) or (isSummon(pid) and canAttackOther(cid, pid) == "Can") or (isPlayer(pid) and canAttackOther(cid, pid) == "Can")) and pid ~= cid then

doChangeSpeed(pid, -getCreatureSpeed(pid))

elseif isMonster(cid) and (isSummon(pid) or (isPlayer(pid) and #getCreatureSummons(pid) <= 0)) and pid ~= cid then

doChangeSpeed(pid, -getCreatureSpeed(pid))

end

end

 

addEvent(divineBack, 2100, cid)

addEvent(doDivine, 2200, cid, min, max, spell, rounds, area)

 

end

 

 

return true

end